OK, I've not posted here before so tell me what you monks think:
$dc='while($J++<3){if ($J%2) { print "_" x(
length($c)*2+3)."\n"; }else{ while ($ua++<$
lo ){ $k=$c;$k=~s/(.) /\1 /xg;print "| $k".
"|\n" ; $c=~s/(.)(.*) /\2\1/x;}}}';$s=join(
'', ( $dc=~/\(\$(.)\+ .*\$(.).\+*<.+\~(.)\/
.+\w{4}(.\s)/xs),($dc =~/\(\$.(.)\+{2}< .*?
\w{3}(\w)\w/xs), ($dc =~/\$..(.)\s.*?\w{4}(
.)\s/xs),($dc=~/.(.). *? (.) \(.*?\{..(.)\w
{3}(.).*?;(.)\w{4}/xs ),($dc=~/.*?(.) \(.*?
\{..(.)\w{3}.*?\(.(.) .*?\{(.).(.).*?\$.(.)
.*?\$ (.);.(.)/xs),($ dc=~/(.)\(.*? \{..(.)
\w{3}/xs));$s.='!';$s =~ s/ a (.*) p (.*) h
/A\1P\2H/x;$lo=length ($s);$c=$s;eval($dc);