#! /usr/bin/perl use strict; use warnings; use 5.010; my $normalText = "Bli. Bla. Blupp."; my @saetze = split( /(\.|,|:|;|\?|\!)/,$normalText ); say for @saetze;