$q=q=Just another Perl hacker.=.q= =x35;for(split(q==,$q))
{$q=~s=(.)(.*)=$2$1=;push@q,($/x24).$q.$/}push@q,reverse
(@q),$/x25;for(@q){print;select undef,undef,undef,.15}