- my ($ticker, $recent, $date, $time, $change, $open,
- $high, $low, $volume) = split(',',$result);
+ # get rid of the quotes
+ $result =~ s/\"//g;
+
+ my (
+ $ticker, $recent, $date, $time, $change,
+ $open, $high, $low, $volume
+ ) = split( ',', $result );