Select Code to Download

#!/usr/bin/perl -w           # my 2 cents worth

...
s;tue;chr;g;
eval;
print;

y/{}/../sd;
s/two/ord/g;
s/too/hex/g;
s/tue/chr/g;

               $_='$_=tue($=+(two
           ($;)>>(two($;)>>2+2))).tue
...
s/tue/chr/g;
eval;
print;

               $_='$_=chr($=+(ord
           ($;)>>(ord($;)>>2+2))).chr
...

eval;
print;

               $_=chr($=+(ord
           ($;)>>(ord($;)>>2+2))).chr
...
2)))+(ord($;)>>(ord($;)>>2+2))-2);

print;

$_= chr($=+(ord($;)>>(ord($;)>>2+2))).
    chr(hex(ord(chr($=+(ord($;)>>(ord($;)>>2+2))))+(ord($;)>>2+2))).
...
    chr(hex(hex(ord($;)>>(ord($;)>>2+2)))+(ord($;)>>(ord($;)>>2+2))-2)
+;

print;

$_= chr(60+(28>>(28>>2+2))).
    chr(hex(ord(chr(60+(28>>(28>>2+2))))+(28>>2+2))).
...
    chr(hex(hex(28>>(28>>2+2)))+(28>>(28>>2+2))-2);

print;

$_= chr(60+(28>>(1))).
    chr(hex(ord(chr(60+(28>>(1))))+(1))).
...
    chr(hex(hex(28>>(1)))+(28>>(1))-2);

print;

$_= chr(60+14).
    chr(hex(ord(chr(60+14))+1)).
...
    chr(hex(hex(14))+14-2);

print;

$_= chr(74).
    chr(hex(75)).
...
    chr(hex(hex(14))+12);

print;

$_= 'J'.
    chr(hex(75)).
...
    chr(hex(hex(14))+12);

print;