if ( $plz !~ m/ \A \d{5} \z /x ) {
    print "Ungueltige Eingabe!\n";
}