$ perl -wle 'print "\s"'
Unrecognized escape \s passed through at -e line 1.
s

my $s = "\\s"; print $s;

            my $datenMitMonatsnamen = qr/
            (
                \d\d?\.
                \s+
                (?:Januar|Februar|März|April|Mai|Juni |Juli |August|(?:Oktober)|November|Dezember
                  |Jan\. |Feb\.  |     Apr\.|    Jun\.|Jul\.|Aug\. |Okt\.      |Nov\.   |Dez\.)
                \s+
                (?:\d\d\d\d|\'?\d\d\D)
            )
            /x; # kommts bekannt vor?
            if( $zuUntersuchenderBereich =~ m/($datenMitMonatsnamen)/) {
                
                # Ausnahme in Wortliste aufnehmen,
                # Position entsprechend verschieben
                print "Monatsangabe ($1) gefunden bei Zeichen [\Q$z\E] "
                        . "an Position $c, "
                        . "Länge: " . length($1) . "\n";
                
                push @ausnahmen, $1;
                $c += length($1);
            }

Das\sist\sein\s\s\sText.\n\r
Jetzt\sein\sTab\tnoch\smehr_Text\shier.\n\r
\n\r
\n\r
\tblubb

while($text =~ m/\s+|\s*\t|\s*\n\r?|und so weiter/g) {
    print "Gefunden an Position", pos $text, "\n";
    print "Das gefundene Zeichen ist: [$1]\n";
    print "Leider kann ich nicht genau sagen, um was für ein Zeichen es sich handelt...\n";
}