#!/usr/bin/perl -w
use strict;

#probevariablen
my $normalText= "Bla bla blabla bla. Timo macht sein Zimmer sauber. Er vergisst das Staubsaugen.";

my @felder= split(/(\.|,|\?|\!|:|;)/,$normalText);
my @saetze = ();
my @nomen = ();

for(my $i = 0; $i <= $#felder; $i+=2) {
    push(@saetze, join('',$felder[$i], $felder[$i+1]));
}

foreach my $satz (@saetze) { 
        if ($satz =~ m/\b(er|sie)\b/gi) {
            push(@nomen,$1);
        }
        else {
            print "$satz\n";
        }
}

foreach (@nomen) {
    print "$_\n";
}