use 5.012;
use warnings;

use Text::CSV;
my $csv = Text::CSV->new({ sep => ',', quote => '"' });

use Data::Dumper;

while (my $row = $csv->getline(\*DATA)) {
    print Dumper $row;
}

__DATA__
1,2,3,4,"hier, ein Text",7,8,"und, noch ein Text"