my $xx = "brüller";
 chop($titel = <>);
 if($titel =~ /ü/){ print $titel."1";} # keine Ausgabe
 if($titel !~ /ü/){ print $titel."2";} # Ausgabe: knüller2 - perfektes "ü"
 if($xx =~ /ü/){ print $xx;}           # Ausgabe: br³ller "Ü2 wird ersetzt durch "³"