Имеется файл со следующим содержанием

01/20 07:43:17 ##### failed A_FAIL dev=cuad0, pid=5386, caller='437709'
01/20 07:44:33 ##### failed A_FAIL dev=cuad0, pid=6746, caller='none'
01/20 07:49:56 ##### data dev=cuad0, pid=9978, caller='206795'
01/20 07:51:40 ##### data dev=cuad0, pid=23888, caller='none'
01/20 07:55:20 ##### data dev=cuad0, pid=26682, caller='none'
01/20 07:56:57 ##### data dev=cuad0, pid=35162, caller='480202'
01/20 07:59:59 ##### data dev=cuad0, pid=44682, caller='none'

Необходимо из каждой строки вытаскивать caller='none' или caller='480202' и переменной $caller присваивать значение которое находится в кавычках.

• Поиск в тексте,tx2, 23:05 , 18-Апр-08
  • Поиск в тексте,youran, 03:16 , 19-Апр-08

если пишем на перле, то

$str = q~01/20 07:43:17 ##### failed A_FAIL dev=cuad0, pid=5386, caller='437709'~;

if ( $str =~ /caller=\'(.+?)\'/ )
{
$caller = $1;
}

Большое спасибо !