Select Code to Download

"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","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:.*),(.*),(.*),(.*),(.*),(.*),(.*),(.*),
+(.*),(.*)/;
...
        {
        print "LINE : " . $lines[0] ." \n";
        }