@c=split//,"justanotherperlhacker";print@c,$/,(map
$_=chr$_-(($_=1+ord)>122?26:0),@c)x0 while++$x<26
[download]