in reply to Re^3: handling erronous input
in thread handling erronous input

Or 

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

[download]

In Section Seekers of Perl Wisdom