for (my $zaehler=0; $zaehler<@Sonderzeichen; $zaehler++)
{
     $Zeilen =~ s/$Sonderzeichen[$zaehler]/$Ersetzungsstring[$zaehler]/gis;
}