#!/usr/bin/perl

$_ = join "\0\0", (':w','ncqd}H','?sS',''); chop; @u = unpack('c*', $_); for ($i=0; $i<@u/2-1 || $i<@u/2+1 && ($u[$i]-=96) && next; $i++) { $u[$i] = -$u[$i]; } $\="\n"; $o = pack 'c*', @u; @r = unpack 'L'x4, $o; print join ' ', map{ $n=$_; $c=''; while($n){ $r=$n%14; $n=($n-$r)/14; $c.=chr($r+97); } ($_=$c) =~ y#a-n#acehj-ln-pr-u#; ucfirst; } @r;