perl -e'while(!m#/#){$_=qw[0=VAY(&amp;amp;amp;UU<W],$@=qw{0@=V4@=V%I=,)+},$_=join(qw//,$_,$@),print(" "x(rand 69),unpack(u,$_),$/),}'