Stimmt, und ich hätte Stein und Bein geschworen, auch genau das geschrieben zu haben, leider stand bis eben aber nichts zwischen perldoc und stat ^^ ich habs mal nachgetragen.
Edit: Ich weiß schon, warum ich nicht um Geld wette ;)\n\n
<!--EDIT|Crian|1070360507-->
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