#!/usr/bin/perl -w #probevariablen $normalText= "Bla bla blabla bla. Timo macht sein Zimmer sauber. Er vergisst das Staubsaugen."; @saetze= split(/[(\.|,|?|\!|:|;)]/,$normalText); foreach $satz (@saetze) { @woerter= split(/ /,$satz); if ($satz=~ m/ /) { $satz=~ s/ //; } if ($satz!~ m/^(er|sie)$/gi) { foreach $wort (@woerter) { if ($wort=~ m/[A-Z].*/) { push(@nomen,$wort); } } } else { print "$satz\n"; } } foreach (@nomen) { print "$_\n"; }