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,$/;

[download]

Update: Added #! and use strict lines - extremely after the fact, but they don't affect anything.

His Royal Cheeziness

In reply to When in Rome... by CheeseLord

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.