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]
[download]

Update: added the space requested by jdalbec.

Update: ++LassiLantar and jdalbec and thanks for the alternate versions. I done some more research and found