if ( $t = ($_put{Titelp} =~ tr/[0-9]//) || ($bt =( $_put{Titelp} =~ tr/[a-zA-Z\W\s\w ]//)) ){
$emsg.="Title: $Titelp enthält Sonderzeichen!<br>"
}
$emsg.="Title wurde nicht ausgefüllt<br>" if $_put{Titelp} eq "";

$varneu = ($var =~ tr/linkerTeil/rechterTeil/), wobei hier das Ergebnis der Transliteration in $varneu steht und $var ihren ursprünglichen Inhalt unverändert beibehält. (ist aber auch auf alle Regulären Ausdrücke übertragbar, wo man nicht den Ursprungsvariableninhalt verändern will).

$t =  ($var =~ tr/[0-9]//); # Anzahl Zahlzeichen in Var $t speichern
$bt =($var =~ tr/[a-zA-Z\W\s\w ]//); # Anzahl Nichtzahlzeichen in $bt speichern
if ($t != 5 || $bt){ #wenn $t nicht gleich 5 ist oder $bt Inhalt hat
$emsg.= "Die Eingabe entspricht nicht dem üblichen PLZ-Format von 5 Zahlen, bitte wiederholen Sie die Eingabe<br>";
}

 if ( ($t = ($_ =~ tr/[0-9]//))!= 5  ||  ($bt =( $_ =~ tr/[a-zA-Z\W\s ]//) ) ) {
$emsg.="Die Eingabe entspricht nicht dem üblichen PLZ-Format von 5 Zahlen";
}