use strict;

use Text::ParseWords;

foreach( <DATA> )
{
        my @words = quotewords( ",", 0, $_ );
        for (0 .. $#words){
           print $words[$_] . "\n"; 
        }
}
__DATA__
ID,Vorname,Name,Buch,Preis,Verlag
1,Josef,Gans,"Das Komma (,)",23.50,"Büchle Verlag, Zürich"
2,Antonia,Zwerg,"Buchstaben, Worte sind Schall",18.20,OX-Verlag