use Data::Dumper;

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

my @saetze = split( /([.,:;?!])/,$normalText );

print Dumper \@saetze;