my $string = "Zeile 1\nZeile 2\nZeile 3\n"; my $newlines = ( $string =~ tr/\n/\n/ );