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

Replies are listed 'Best First'.
Re: When in Rome...
by Biker (Priest) on Jul 13, 2001 at 00:13 UTC

Nice. But what do you mean with 'Jvst' ???

f--k the world!!!!
/dev/world has reached maximal mount count, check forced.

Carvings done in Latin use 'v' for 'u' (ever tried to carve a 'u'?). So 'Jvst' fits nicely into that...

Then again, it should probably say 'Ivst', since 'J' wasn't used either...