%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
####
CR LF TAB SPACE #! SPACE BACKSPACE /usr/ SPACE BACKSPACE bin/ SPACE BACKSPACE f BACKSPACE pe SPACE BACKSPACE rl CR LF SPACE BACKSPACE
##
##
$_='%?&%[=&+=?%=[%&+&%[*?]&=&~[;&+&{=?[?&%&[&{[%&^=?=[&%&]=?%~&~[?&+&~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;
##
##
$monster = new ArrayHashMonster ... ;
print $monster->[1]; # This might print `Janvier'
print $monster->{Jan}; # This can *also* print `Janvier'
##
##
$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>/$2($1)/sgx;
$d=~s/<(br|p|li)>/\n/g;$d
=~s/<.+?>//gsx;print"$d";
##
##
# 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;
##
##
$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;
##
##
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
##
##
#!/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}
##
##
#!/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;
##
##
# 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
##
##
$_='",",/[J|]$/?m)^.J)?(m~"(.+?)"~):s](^(.)(.*\)\?p.*)|(\)\?)(.'
.'*))\|(.)]$4$2$6$3$5|]<eg!~eval#@|xslvuuipfem#pwht%uimwssd$yvyO'=>eval
##
##
#!/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"