chr() kehrst du mit ord() um, nicht durch nochmaligen Gebrauch von chr(). Steht ja auch in perldoc -f chr.

Der Rest der Loesung kommt von lichtkind. Wie Du seine und meine Antwort zu einem funktionierenden Stueck Code kombinierst, solltest Du selbst ausprobieren, damit Du dabei auch etwas lernst :)