Es ist schwer einzuschätzen, was schwer ist und was nicht.
Zu den Modulen: File::Find hatte ich ausgeschlossen, da die Lösung damit etwas witzlos ist, aber Data::Dumper zum dumpen der Datenstruktur ist ok, da das Ergebnis die Datenstruktur ist, und nicht die Ausgabefunktion.
Aber vielleicht ist meine Sichtweise nicht die richtige.
Ich bin für Rätselzusendungen dankbar, irgendwer hatte mir doch auch schon was geschickt (steve?), das ist bei mir aber nicht angekommen. (Obwohl ich die Spams danach durchsucht habe.)
Wenn die Aufgaben zu einfach sind, reizen sie ev. auch niemanden.\n\n
<!--EDIT|Crian|1089627043-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite