Perl Monk, Perl Meditation PerlMonks

### Third Time's a Charm

by zdog (Priest)
 on Dec 31, 2000 at 05:57 UTC Need Help??

```#!/usr/bin/perl -w

use strict; \$_='\$_= three((trey(\$;)<<3)-((trey
(\$;)-3)*(3+3)))!three((\$=-(\$=/3))*3-3)!three((
3**3*3)+(\$=-(\$=/3)-3-3))!three((\$=-(\$=/3))*3-3
-(trey(\$;)-3**3))!three(\$=/(3+3)*3+3-(trey(\$;)
-3**3))!three((\$=-(\$=/3))*3-3-(\$=/3))!three(\$=
*3-\$=-(\$=/(3
+3)))!three(
\$=*3-\$=-(\$=/
(3+3))+(trey
(\$;)-3**3))
!three((\$=-(
\$=/3))*3-3-(
trey(\$;)-3**
3))!three(
\$=*3-\$=-(\$=
/(3+3))-(\$=
/(\$=/(3+3))
))!three(\$=
*3-\$=-\$=/(3+3)-3*3)!three((\$=-(
\$=/3))*3-3-3)!three(\$=/(3+3)*3+3-(
trey(\$;)-3**3))!three(\$=+\$=/3)!three(
((\$=)*3)-\$=-(\$=/(3+3))-3*3)!three((\$=
-(\$=/3))*3-3-
3)!three(\$=*3
-\$=-(\$=/(3+3)
)-3+(trey(\$;)
-3**3))!three
(\$=/(3+3)*3+3
-trey(\$;)+3**
3)!three((\$=+
\$=/3)/(\$=/(3+
3))*(3*(3)))!
three((\$=-(                      \$=/3))*3-(3)-
((\$=)/(3)))                      !three((\$=/(3
+3))*(\$=/(3                      +3))-trey(\$;)
+((3**3)))!                      three(\$=*3-\$=
-(\$=/(3+3))                      -(\$=/(\$=/(3+3
)))+3)!three(\$=*3-\$=-(\$=/(3+3))-3*3)!three((\$=
-(\$=/3))*3-3-3);';s lthreelchrlg; y l!l.l;
s ltreylordlg; eval; print \$_."\n";
#  third time's a charm

Zenon Zabinski | zdog | Zenon.Zabinski03@students.bcp.org

Replies are listed 'Best First'.
will the madness ever stop?
by Rydor (Scribe) on Dec 31, 2000 at 10:27 UTC
Hmmm... i've got shotty on 4

@:::::::((==========Rydor====>

Create A New User
Node Status?
node history
Node Type: obfuscated [id://49039]
Approved by root
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (11)
As of 2018-06-18 16:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Should cpanminus be part of the standard Perl release?

Results (110 votes). Check out past polls.

Notices?