"02-feb-2010","04:59:12;09 ","00:00:06;27 " ,"ABC1234 ","ABC1234","ABC1234","610A/03","00:08:19;28 ","00:08:26;24.","02-feb-2010","04:59:19;06 "
"02-feb-2010","04:59:19;06 ","00:00:15;00 " ,"creeid00402 ","OY00402W","OY00402W","610D/00","04:00:00;00 ","04:00:14;29.","02-feb-2010","04:59:34;06 "
"02-feb-2010","04:59:34;06 ","00:29:01;25 " ,"ihw-14ubc-q ","3316291-","3316291-","610E/00","03:00:00;00 ","03:29:01;24.","02-feb-2010","05:28:35;29 "
"02-feb-2010","05:28:35;29 ","00:00:15;00 " ,"creeid00402 ","OY00402W","OY00402W","610D/00","04:00:00;00 ","04:00:14;29.","02-feb-2010","05:28:50;29 "
"02-feb-2010","05:28:50;29 ","00:00:30;00 " ,"scifim10078 ","SF10078W","SF10078W","610F/00","02:00:00;00 ","02:00:29;29.","02-feb-2010","05:29:21;01 "
"02-feb-2010","05:29:21;01 ","00:00:15;00 " ,"creeid00402 ","OY00402W","OY00402W","610D/00","04:00:00;00 ","04:00:14;29.","02-feb-2010","05:29:36;01 "
####
grep -e "(.*),("05:.*),(.*),(.*),(.*),(.*),(.*),(.*),(.*),(.*),(.*)"
####
my @lines = ();
push @lines, $_ if /(.*),("05:.*),(.*),(.*),(.*),(.*),(.*),(.*),(.*),(.*),(.*)/;
foreach my $line (@lines)
{
print "LINE : " . $lines[0] ." \n";
}