JAPH 6 (requires perl >= 5.12.3)

#!/usr/bin/perl

sprintf reverse localtime time if not eof and srand printf formline eval int ord
lcfirst ucfirst length glob gmtime exp defined caller sin binmode log oct abs uc
lc sqrt study rand scalar time or warn tell unpack hex rewinddir dump kill chdir
require prototype readdir eof open pack die return undef and unlink write chroot
telldir bless sort open split chown join close rmdir fileno getc sleep redo exec
mkdir ref stat system do getpwnam next and gethostent and getpgrp and umask exit

;open(R,$0),local$/=undef;print"\b";@_=split($",<R>);for(qw y 58 26 8 3 111 7 71
55 31 36 11 1 111 9 6 37 23 111 36 74 59 39 65 66 y){_($")if/^1{3}$/;print map/(
.)/x,$_[$_]}_(chr($]+$]));sub _{print pop};##############By Trizen##############