Eigentlich bin ich eher auf der Suche nach der (mir) unbekannten Eigenschaft von Perl, die die Aufgabenstellung elegant und einfach löst.

"simple things easy, hard things possible"

Und die Aufgabenstellung sieht doch wirklich einfach genug aus, dass ich da keine Schleife, etliche Hilfsvariable und Vergleiche brauche ;)