use strict;
use warnings;
use Text::CSV_XS;
use Data::Dumper;

my $str = 'IBM,INTL BUSINESS MACHINES,"2,500",$108.14,$270350.00,$1625.00,0.60%,$126200.00, +$144150.00,+114.22%';
my $csv = Text::CSV_XS->new();
my $status  = $csv->parse($str);
my @columns = $csv->fields();
print Dumper(\@columns);

__END__
$VAR1 = [
         'IBM',
         'INTL BUSINESS MACHINES',
         '2,500',
         '$108.14',
         '$270350.00',
         '$1625.00',
         '0.60%',
         '$126200.00',
         ' +$144150.00',
         '+114.22%'
       ];