perl -pe'$\=($\*32768.5+ord)%4**8 .$/for/./gs}{'