my $chinesisch = "Rüde Rowdies rauben rüstigem Rentner rotes Rad.";
$chinesisch =~ tr/Rr/Ll/;
print "Chinesisch: $chinesisch\n";

my $string = "ALLES GEHT MIT PERL!";
$string =~ tr/A-Z/a-z/;
print "Klein: $string\n";

my $Variable = "Sügömälüxämülä";
$Variable =~ tr/A-Za-z_0-9/_/c;
print "Variable: $Variable\n";

my $string = "ein   Satz mit  überflüssigen    Leerzeichen";
$string =~ tr/ //s;
print "$string\n";

my $string = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG";
$string =~ tr/AEIOU//d;
print "$string\n";

my $string = "Fischers Fritze fischt frische Fische.";
my $Zaehler = ($string =~ tr/Ff//);
print "F kommt $Zaehler mal vor!\n";

my $Wort = "überflüssig";
$Wort =~ tr/\200-\377/\000-\177/;
print "Wort = $Wort\n";

my $Satz = "Vs vg qenjf oybbq, vg'f uneqjner.";
$Satz =~ tr/a-zA-Z/n-za-mN-ZA-M/;
print "Satz = $Satz\n";