while (<DATAFILE>) {
  	unless (m{^(.*?)\s*,([\d:]+)}) 
	{
       next;
    }
    
	chomp $_;
         
    ($quote,$time) = split(",", $_);
    // do my computations
    chop($quote);chop($quote);