$a=qq{|}x7;*p=sub{print@_};$\=$/;$b=@_;$a{a}=q! !;@a=split//,$a;p($\
,$a{a},$a);p($a{a}."[".$a[0].$b." ".$b.$a[$#a]."]");p($a{a}x2,,'\\',
,$a{a},,'-',,$a{a},,'/');p($a{a}x3,'\\=/');$c=($a{a}x4)."~";p($c);$\
=q||;*p=sub{map{print" ".(lc ($_))}@_};p(((grep{/[yp]/}(a..z))[1]));
p(64/16);p(P);$\=$/;p(chr((7*4)+7))# 50M30\3 Pu7 5H17 1N M4 P4N75 !!