#!/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
[download]

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