Schreib hinter jedes einzelne $str=~s/.../ ein say "Jetzt ist der String: $str" und du findest den Fehler hoffentlich schnell.