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";
}