If you are not preserving the separator, why not foreach my $sentence(@sentences) { foreach my $fragment (split /\s*[-:;]\s*/, $sentence) { print $fr

If you are not preserving the separator, why not foreach my $sentence(@sentences) { foreach my $fragment (split /\s*[-:;]\s*/, $sentence) { print $fragment, "\n"; }