X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f996b,b2a767f90f213f58,start
X-Google-Attributes: gidf996b,public
X-Google-ArrivalTime: 2003-11-16 18:20:11 PST
Path: 
 archiver1.google.com!news2.google.com!fu-berlin.de!news-FFM2.ecrc.net!news.erlm.siemens.de!newsr1.ipcore.viaginterkom.de!btnet-peer1!btnet!zen.net.uk!lovejoy.zen.co.uk.POSTED!not-for-mail
Newsgroups: alt.ascii-art
From: Mark Hill <mark_usenet@yahoo.co.uk>
Subject: [pic] [perl] italy
Reply-To: Mark Hill <usenet@mark.ukfsn.org>
Mail-Copies-To: nobody
X-OS: Slackware Linux current
X-Linux-Counter-ID: 329679
X-Jabber-ID: leafnode@jabber.com
X-Y: Z
Message-ID: <2003-11-17T02-11-36@heaney.example.org>
User-Agent: slrn/0.9.8.0 (Linux)
Date: 17 Nov 2003 02:20:08 GMT
Lines: 50
Organization: Zen Internet
NNTP-Posting-Host: 217.155.199.78
X-Trace: 1069035608 lovejoy.zen.co.uk 12677 217.155.199.78
X-Complaints-To: abuse@zen.co.uk
Xref: archiver1.google.com alt.ascii-art:525

Here's a pic I saw at <URL:http://www.perlmonks.org> a while ago, which
I thought was quite good. I'm not sure who it's by as I can't find the
page it was on right now. It prints out "italians code Perl better!"



use strict;
use warnings;

                     @                           
               _=q*A*;my$                        
       m   ;  @_[7,6]=($_[0]                     
       )x2;my@i;@{_}[1..2]=(                     
  'T','T');@i=($[,$!,$]);*t::_                     
  =\&t;$m=\$";$_[4]='L';$"=""                    
 ;$_={}+1;sub q{&e;&r};@                          
 i=(u=>n=>i=>q(n));$i[4                          
 ]=lc$_[2];$_[-1]++ for#                         
 1..3;$_[1]++;$m=uc(uc(                          
    @i[2    ,].@_[2,].@_                         
    [0        ,]));$_[3]=                        
              $_[5]='O';@i[1
               ,0]=(qw(r i p))                   
               [0,2]; $::{$m}                    
              = sub{_(&e(&d(&o                   
                 (&{c}))))};sub                  
                   _{eval"@i\" \"                
                     "};eval"sub @_\{@i(          
                       \$::@_=~/^.* ::(           
        .*              ?)\$/ix)}";&i&&&t    ;  
    *_::n=\&                 n;a(),&::l;{{&i}    
    };eval "                  \&@{[lc$_[0]]};";  
     *X::=$/                     ;_::n()&&&s();& 
     _;ITA(0                      );*X::=     $/ 
      ;$/.=                          '';#        
     P()=>&                          q,&l,&      
      _; s(                           u)(b(      
                                      ));        
                                     e(b(        
                       ) );$    _={}*@_;         
                      map{$_->_}(q(t));          
                       &q(&t);*_::_              
                          =\&{'!'};              
                            _::_('EN             
                                D')      


-- 
Mark Hill <usenet@mark.ukfsn.org> (Yahoo address not read)
GPG KeyID: 4A3B58AC