$x= $$.x ; $a = "s" ; $exp =
"13O45";$exp=~/\d\d(.*)\d\d/
; $ab =$1; $ab= ~tr/A-Z/a-z/
;sub JK {print"$pr\n";};$hY=
$1; $ace = " " ; $hZ = ++$hY
;if(1){@er= qw(i h t); } $xx
=reverse(@er);$t=pop(@er);$t
=pop(@er); @kl =qw(i a y u);
push(@kl, "e"); $w = $kl[4];
$av = "nj";$aw= ++$av;$hY =~
tr/A-Z/a-z/; $hY = "n";++$hY
; $pr = " $a$hY$ace$kl[2]$zz
$hY$kl[3]$ace$xx$aw$z$ace$xx
$a$ace$kl[0]$a$ace$w$kl[1]$a
$kl[2], $t$kl[3]$t?"; $pr =~
s/\n//g ; if (1) {&JK;exit:}
That should work... Unless I
messed up again...