my $zeile = ":word, text,asdf; foo.bar";
my $words = [ $zeile =~ /\w+/g ];

print Dumper $words;