@a=grep/[^mqsvy]/,a..z,A..Z; $a{$_}=$_ for@a; for$i(@a){for(@a){ $a{$i|$_}||="$i | $_"; $a{$i^$_}||="$i ^ $_"; }} for$i(@a){for$j(@a){ $a{$i^$j^$_}||="$i ^ $_ ^ $j"for@a; }} exists$a{chr$_}or die"no $_"for 9,10,32..126; undef$/; $_=join'',map{ $b=qw(| ^)[$a{$_}=~/../?$a{$_}=~/\|/:rand 2]; $c=qw(^ |)[rand 2]; "s $b$b $a{$_} ${b}e $c " }reverse<>=~/./gs; $_.="s || LZ ^ Ea ^ ad ^ L |eee"; s/((\S *){1,79})( |$)/$1\n/g; s/ //g; print;