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