Select Code to Download

 chomp;
 my ($quote, $time) = split m/\s*,\s*/, $_, 2;
 $quote = sprintf "%.3f", $quote;