给 perl hacker 们看的[1]

究竟有多少种打印出 just another perl hacker 的方法呢？

看看就知道了 :-)

%%
#JoeCamel on http://www.perlmonks.com/
#note: requires Perl5.6.0 or better
#!/usr/bin/perl -w
use strict;

# A tribute to one of the greatest films of all time.
my(%primate, $monolith, $evolution, $contact);

            $_='primate-> throw
            ( "Bone" ) ;  goto;
            $$monolith ;  bless
            %primate;$evolution
            =~m/?+*/; #/*+?/m~=
            *humanIntellect ++;
            $Discovery =~ m . [
            [::]>>=<>=<>=<>=(-)
            ]. ; require  2001;
            exists($malfunction
            )#open $podBayDoors
            or die ; HAL-> sing
            ("Daisy");sleep()*'
            ;my@universe= qw(15
            1 6 4 35 1  12 2 23
            2 14 1  8 2 0  5 25
            1 39 3 7 2);my $God
            ;$monolith="******"
            ;  my  @spaceTime =
            split/;/,$_ ; while
            (my($space,$time )=
            splice (@universe,0
            ,2) ) { my $journey
            = shift @spaceTime;
            eval " $journey; ";
            $contact = substr (
            $@, $space, $time )
            ; if ( $space != ((
            " dimension " =~ //
            ) +1+4+9 ) ) {print
            $contact; next; }my  
            $starChild=$contact
            ;print uc$starChild

}
%%
#!/usr/local/bin/perl
 
undef$/;$_=<DATA>;y/ODA\n / /ds;@yoda=map{length}split;print chr
oct join('',splice(@yoda,0,3))-111 while@yoda;
__DATA__
         00O00O000O00O0000      000O         DD000000O0
        0DO0000000O0000O00     O00000        00O00000O0O
        0000      0O0         O00  O00       00D     0DO
         00O0     0O0        00D    000      DO0D00000D
          0O00    DOD       000000O00000     000  O00O
 DD0000D000O0     000      0O00O0000D00DO    0OD   D00O000D00O0
 00000DO00O0      000     000O        00D0   O0D    O00000O0DO0