my $beginstr = "Hallo-'\"%$(\"'Welt";
alle res-Variablen = beginstr;

'tr/c+s'  => sub     { $res1 =~ tr/a-zA-Z0-9öäüßÄÖÜ/_/c;$res1 =~ s/_//g; },
'tr/cd'   => sub     { $res2 =~ tr/a-zA-Z0-9öäüßÄÖÜ//cd; },
's'       => sub     { $res3 =~ s/[^a-zA-Z0-9öäüßÄÖÜ]//g; }