Select Code to Download

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