http://www.perlmonks.org?node_id=20415

$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:}