my %ersetzungen = (s => 'sch', ö => 'oe',...);

for my $key(keys(%ersetzungen)){
  $text =~ s/$key/$ersetzungen{$key}/g;
}