Du iterierst mit foreach $x(@satz_1) ueber die Elemente von dem Array @satz_1, aber anscheinend moechtest Du eigentlich ueber die Indizes iterieren. Das geht mit foreach $x(0..$#satz_1).

Und dann versuchst Du einen regulaeren Ausdruck mit ($satz_2[$x]) == (/[0-9]+/). (Ich habe das jetzt nicht ausprobiert, aber eigentlich sollte das eine Warnung ausgeben!) Das muesste $satz_2[$x] =~ /[0-9]+/ heißen. Das Plus ist dabei aber eigentlich ueberfluessig, weil sowieso nur ueberprueft wird, ob der Ausdruck irgendwo innerhalb des Strings matcht. Wahrscheinlich willst Du /^[0-9]+\z/ stattdessen verwenden.

Praktischer waere es, statt zwei Arrays einfach einen Hash zu benutzen, mit dem man die Zeichen umwandelt. Dann kann man sich den ganzen foreach-Kram sparen.

Du solltest unbedingt strict und warnings benutzen! Und um Deinen Code solltest Du hier im Forum [code]...[/code] schreiben, damit er besser lesbar ist und die Einrueckungen erhalten bleiben.\n\n

<!--EDIT|betterworld|1157417818-->