my @lines = ();
 push @lines, $_ if /(.*),("05:.*),(.*),(.*),(.*),(.*),(.*),(.*),(.*),(.*),(.*)/;
	    foreach my $line (@lines)
	    {
		print "LINE : " . $lines[0] ." \n";
	    }