next unless ( $data =~ /^(\d\.\d{5})\s,(\d\d:\d\d:\d\d).*/ );	  
	$quote = $1; $time=$2;