my ($wordlist) = $zeile =~ /'([^']+)';/;
my @words = split /,/, $wordlist;