%A=('r'=>"\n","\t"=>'#','/'=>
     's','f'=>'p',"b"=>'n');@C=qw (e
    ! r/ / e );foreach $k (sort keys
   %A){ @B=(" ",'u','i',"\b",'l');$s
  .=qq{$k$B[$x++]$A{$k}$C[$x] \b};if
 ($x==1){$t=$k.$B[$x-1].$A{$k};}#ops 
} print$A{r}.$s;#i h8 left over \s's

##</code><code>##

CR LF TAB SPACE #! SPACE BACKSPACE /usr/ SPACE BACKSPACE bin/ SPACE BACKSPACE f BACKSPACE pe SPACE BACKSPACE rl CR LF SPACE BACKSPACE

##</code><code>##

$_='%?&%[=&+=?%=[%&+&%[*?]&=&~[;&+&{=?[?&%&[&{[%&^=?=[&%&]=?%~&~[?&+&~YiFF!
=[=~| Weyfour WWWWolf (aka. Urpo Lankinen), a lupine technomancer |=?*_=}?]
%}&};| ICQ:4291042 | wwwwolf@iki.fi | http://www.iki.fi/wwwwolf/ |&;&=~?]';
tr/?~=*;%&[{}]+_^ (),.:@\/\n0-9!|a-zA-Z/0-9acde/d; $_=pack("H*",$_); print;

##</code><code>##

$monster = new ArrayHashMonster ... ;
print $monster->[1];   # This might print `Janvier'
print $monster->{Jan}; # This can *also* print `Janvier'

##</code><code>##

$a="User-Agent:PlMk";$u="
xavier.penguinpowered.com
";$h="GET / HTTP/1.\n";$u
=~s/\n//gs;$d=`echo "$h$a
"|nc $u 80`;$d=~s/.+?ml\r
(.+)/$1/s;$d=~s/\n+|\s+ \
/ /gsx;$d=~s/<a.+?f="(.*?
)">(.+?)<\/a>/$2($1)/sgx;
$d=~s/<(br|p|li)>/\n/g;$d
=~s/<.+?>//gsx;print"$d";

##</code><code>##

# to squish a string
y sssscccc;
y cccscsss;
y yyysc;

# to get the string length
y yyyc;

# to clear a string
y ccccdddd;
y dddcdccc;
y yyycd;

##</code><code>##

$Old_MacDonald = q#print #; $had_a_farm = (q-q:Just another Perl hacker,:-);
s/^/q[Sing it, boys and girls...],$Old_MacDonald.$had_a_farm/eieio;

##</code><code>##

y ccccd x s vvchr oct oct ord uc ave x s vvucve le
s vvuc ave x s vvchr oct oct oct ord uc bve x eval

##</code><code>##

#!/usr/bin/perl
use Curses;keypad initscr;nodelay 1;box qw{| -};($l,$d,$k,@f)=(1..3,[10,10]);&
n;while(){refresh;@f=([$f[0][0]+$d%2-($d==1)*2,$f[0][1]+$d%2-1+($d==2)*2],@f);
select$f,$f,$f,.06;($c=getch)+1and$d=4-($c%2?2:0)-($c<260);addch@{pop@f},' 'if
@f>$l;$l+=$_=inch@{$f[0]};if(!/ /){/\d/||die;addstr 0, 60,$l;&n}addch@{$f[0]},
'O'}sub n{while(){@v=(rand 24,rand 80);inch(@v)eq' '&&last}addch@v,''.rand 10}

##</code><code>##

#!/usr/bin/perl -w           # my 2 cents worth

                  use strict;
               $_='$_=tue($=+(two
           ($;)>>(two($;)>>2+2))){tue
         (too(two(tue($=+(two($;)>>(two
       ($;)>>2+2))))+(two($;)>>2+2))){tue
     (too(two(tue($=+(two($;)>>(two($;)>>2+
    2))))+(two($;)>>2+2))-2){tue(too(two(tue
   ($=+(two($;)>>(two($;)>>2+2)))))){tue(too(
  too(two($;)>>(two($;)  >>2+2)))){tue(too($=+
 +(two($;)>>2+2))){tue    ((two($;)<<2)-2){tue
((two($;)<<2)-(two($;     )>>2+2)){tue(too(two(
tue($=+(two($;)>>(two     ($;)>>2+2)))))){{tue
                         (too($=+(two($;)>>2)+
                        (two($;)>>2+2))){{tue
                      (too($=+(two($;)>>2)-
                     2)){{{tue(too($=+(two
                   ($;)>>(two($;)>>2+2))
                  -2)){tue(too(too(two(
                 $;)>>(two($;)>>2+2)))
                ){tue(too(too(too(too
               (two($;)>>(two($;)>>2
             +2)))))){{tue(too($=+
            (two($;)>>2)-2))}tue(
           too($=+(two($;)>>(two
          ($;)>>2+2))-2)){tue((
        two($;)<<2)-((two($;)
       >>2>>2)<<2))}tue(too(
      too(two($;)>>(two($;)
     >>2+2))))}}tue(too($=
   +(two($;)>>2)+(two($;)>>2+2)))}}tue(too($=+(
  two($;)>>2+2)))}}tue(too((two($;)<<(two($;)>>
 2>>2))+(two($;)>>2)))}}}tue((two($;)<<2)-((two
($;)>>2>>2)<<2)-(two($;)>>2>>2))}}}tue(too($=+(
two($;)>>2)-2))}}}tue(too($=+(two($;)>>(two($;)
>>2+2))-2))}}}tue(too(too(two($;)>>(two($;)>>2+
2)))+(two($;)>>(two($;)>>2+2))-2);';y;{};..;sd;
s;two;ord;g;s;too;hex;g;s;tue;chr;g;eval;print;

##</code><code>##

			# smiley - 

     ($R=q#for         (split/&/
    =>q;4a&75@^       73&74@20^41
   &@6e@@6f^&@74     ^68&&65@72&20
    &^50@65&@72       ^@6c&@20^48
     @@61&@63&         6b@65&72;)



{print                       &@pack
  ^c@&=>                   hex$_}
    ;print               "\n"#)
      =~s,[&^@\s]+, ,g;eval$R

##</code><code>##

$_='",",/[J|]$/?m)^.J)?(m~"(.+?)"~):s](^(.)(.*\)\?p.*)|(\)\?)(.'
.'*))\|(.)]$4$2$6$3$5|]<<eval:s<([\w -%])(?=[^|]*$)><pack+q*c*,'
.'(ord$1)-++$i%3>eg!~eval#@|xslvuuipfem#pwht%uimwssd$yvyO'=>eval

##</code><code>##

#!/usr/bin/perl -- what is larry wall?
@_=qw(l a r r y w a l l);for(0..1){$_[$_] =~ y#a-z#e-w#;}
$_[3]=$_[$#_].' ';$_[4]=~s$y$h$;($_[5],$_[6])=($_[6],$_[5]);
++$_[6];$_[7]=chr 3+ord $_[7];$_[8]=~y~a-z~g-t~;print @_,".\n"