I never did like those other numbers...
#!/usr/bin/perl -w
use strict;
$3{3}='(3<<3)-3/3~(3+3<<3)+3**(3+3/3)-3*3-3-3~3+3/3^3**3+3+3-3/3>(3<
<3)/3+3~((3+3<<3)-3*3-3/3)*3%(3<<3)-3-3>3**(3+3/3)+3**3-3-3/3>3*3%(3
-3/3)*(3+3<<3)-3/3+3*3>3+3-3/3>3*(3+3**3+3-3/3)+3/3$3+3*3=3+3**3+3-3
/3>>3>=-3/ 3+3*(-3*3+ (3+3<<3))~
(3<<3)-3!3 **(3/3+3)- 3/3+3**3>3
**3-(3<<3) /3>>>(3+3< <(3+3/3))+
3/3$(3+3<< 3)/3~3*(3< <3)/(3-3/3
)*3^3-3/3^ 3*(-3*3+(3 +3<<3))-3+
3/3%3*3-3/ 3%3*(-3*3+ (3+3<<3))-
3/3$3*3+3/ 3$3*3+(3-3 /3)*(3+3<<
3)-3/3-3^3 -3@(3<<3+3 )/3+3*3+3/
3@3*3+3+3^ 3*(-3*3+(3 +3<<3)-3/3
)~(3<<3)/3 +3+3~-3+(3 -3/3)*(3+3
<<3)-3/3+3 *3%3+3*3+3 /3>>3**3*3
-3/3>>>(3+ 3<<3)/3+3+ 3==3**(3+3
)/(3*3)+(3 <<3)-3-3/3 ~3**3-3-3-
3/3>=3+(3+ 3<<(3+3/3) )>>3/3+(3+
3<<3)/3>(3 <<3)/3*(3+ 3/3)!3+3+3
/3~(3**3+3 *3+3/3)*3! 3+3!3*(3*3
+3/3+3**3) -3/3@3<<3$ 3/3+(3+3<<
3)-3$3/3&3 *((3+3<<3) -3*3)+3/3'
;$3{3}=~s; | |\n;;gs; @3=split'"
|[^3)*+(</-]+',$3{3};for(@3){$_=eval}$3{3}=3-3-3/3;while(++$3{3}<@3)
{$3[$3{3}]=$3{3}%(3-3/3)?$3[$3{3}]:chr($3[$3{3}]+3**3+3+3)}%3=@3;@3=
();$3{33}=[sort keys%3];for(@{$3{33}}){@3=(@3,chr$3{$_})}print@3,$/;
Update: Added #! and use strict lines - extremely after the fact, but they don't affect anything.
His Royal Cheeziness
