$str = 'Perl, Froschpopo, "Camel book", CGI, "1, 2, 3 Meins!", Das ist ein Test "Angefuehrt", Klappt!';
while($str=~/(?:^|,)\s*("[^"]*"|[^,]*)/gc)
{
  my $b=$1;
  $b=~s/^"(.+)"$/$1/sg;
  print "$b\n";
}