This is not very obfuscated so even the beginners should be able to figure it out.

#!/usr/bin/perl -w
use strict;
$~=~112;$~=~112;$~=~112;$~=~s/.*//;#112);
sub ___{q#chr(#;}sub __{q$print($;}#112);
sub _{for(0..$#_){$~.=__.___.$_[$_]#112);
;$@.=q#))#;last if/$#_/;$~.=q$+$;;}#112);
eval"$~$@;";}_(0011,0107,0117,0100,0112);
[download]

Fixed a boo boo...