open(DATAFILE, "$input") || die("Can't open $input:!\n");

while (<DATAFILE>) {
     unless (m{^(\d\.d{5})\s,(\d\d:\d\d:\d\d)\s*}) 
	{  next; }
    
	chomp $_;
         
    ($quote,$time) = split(",", $_);
    chop($quote); #remove a white space
	($hour,$minute,$second) = split(":",$time);) 
    # more processing