Klingt gut. Ich hatte einfach eine falsche Vorstellung, als ich anfing mich in Perl einzuarbeiten, und da ich seit dem map eigentlich so gut wie nie und grep nur gelegentlich mal eingesetzt habe, eckte dieses auch noch nicht an.
Ist halt dumm, wenn man falsche sich Vorstellungen zu den eingebauten Sprachmitteln im Hirnspeicher ablegt... ;-)
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