Perhaps that title would benefit from perl -ne "$_=~s/(\));/;\1/;print"
Just for fun I was looking at perl58.dll from Strawberry Perl in a hex editor. I guess that shows how obfuscated my brain was at the time. Anyhow, I got inspired to write this JAPH. Golfers might be able to get it shorter.
@z=('"my %h;1 if defined(%h);"','"my %h=(c=>0);*ENV=\\%h;system(\'echo + $ENV{c}\');"','"require v9;"', '"my $b=0;$b->d();"');$s=sub{($c,$p)=@_;$c='perl -WTe '.$c.' 2>&1';$e= +`$c`;@w=split/ /,$e;$w[$p]}; %l=(0,9,1,4,2,0,3,[4,6]);$\=' ';print &$s($z[$_],$l{$_})for(0..2);unde +f $\;$o='';$o.=&$s($z[3],$l{3}[$_]) for(0..1);@o=$o=~/./g;print $o[3],@o[8..10];$o=&$s($z[2],5);@o=$o=~/./ +g;print $o[-1]
Update: added the space requested by jdalbec.
Update: ++LassiLantar and jdalbec and thanks for the alternate versions. I done some more research and found
In reply to There are errors in this JAPH ); by goibhniu
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |