$_="JUST ANOTHER PERL HACKER,";s#.{5}#$d=5;map{$d+=$f++%2?3*$_:$_}@a=map {split//}unpack C5,$&;$_=join"",$"x3,$t="| |",map{/ /?$_:do{$l=$z=unpack B7,pack v,unpack(x.$_.C,"5A;eKYWc_3")-40<<1;$z=~s/./1^$&/eg;$m=reverse$z ;${qw.l m m l l m.[$c++%12]||z}}}@a=(0,splice(@a,0,5," $t "),@a,10-$d%10 ),$t.$/;s/\d/$&?"|":$"/eg;"$_$_ 5 $t".join$"x5,$",@a," $t\n\n"#eg;print"
$_"