Nein, das Programm dürfte dann mit einem Fehler abbrechen. Besser Du testetst beim Kopieren einfach mit exists nach, ob der Schlüssel da ist (ggf. vorher leer anlegen). Oder Du benutzt es in einem eval-Statement.
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