Select Code to Download

sub blah { $_ = shift; s/ä/ae/g; s/Ä/AE/g; s/ö/oe/g; s/Ö/OE/g; s/ü/ue/
+g; s/Ü/UE/g; s/ß/ss/g; $_ }

$tstr = 'abc äÄöÖüÜß test';

...

print "orig : $tstr\n";
print blah($tstr)."\n";