for$x(1..26){my$r;$r=($x*$r+ord)%127
for"%E.g\cle(WW7=k\ct[bqI\abJy3.%\ctG"=~/./g;print chr$r}