Some sub ref code.

#!/usr/bin/perl

$"=sub{print$_[0]};$perl=sub{qq;pack;};$%=sub{$_=${$^X}->().
qq;("$_[0]",'$_[1]');;eval};$^=sub{$_[0]=~tr;@<>;001;;;$"->
($%->("b*",$_[0]))};$|=sub{$:=shift;chop$:;$^->($:)};s;\n;;;$|->($_)
while(<DATA>)

__DATA__
@>@>@>>@>@>@>>>@>>@@>>>@<@>@>>>@<<<<@>@@>@<<@>>@@>>>@>>@>>>@>>@<@>@>>>
+@<<@>@>>@>@>@@>>@@><@>>>@<<<<@>@<<<<@>>>@>@>@@>>@@>@@>>>@<@>>@>>@<<<@
+>@<<<@>@>>@>@<<@>>@>>@@@>>@>>@>@>>@>@>@@>>@@>@@>>>@@>@>@<<<
[download]