Generelle Empfehlungen:
Definiere Variablen so eng es geht, also nicht in einem großen Block zu Beginn.
Schau Dir mal perldoc perlstyle an und verwende eine größere Einrücktiefe (ich empfehle 4 Leerzeichen).
Genrell bieten sich zur Trennung von Code und HTML Templatingsysteme wie HTML::Template oder Template::Toolkit an.
Beim Posten solcher Ausschnitte würde ich unrerlevante auskommentierte Teile weglassen. Damit erleichtert man allen Lesern die Übersicht.
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