- or download this
%A=('r'=>"\n","\t"=>'#','/'=>
's','f'=>'p',"b"=>'n');@C=qw (e
...
.=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
- or download this
CR LF TAB SPACE #! SPACE BACKSPACE /usr/ SPACE BACKSPACE bin/ SPACE BA
+CKSPACE f BACKSPACE pe SPACE BACKSPACE rl CR LF SPACE BACKSPACE
- or download this
$_='%?&%[=&+=?%=[%&+&%[*?]&=&~[;&+&{=?[?&%&[&{[%&^=?=[&%&]=?%~&~[?&+&~
+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*",$_); p
+rint;
- or download this
$monster = new ArrayHashMonster ... ;
print $monster->[1]; # This might print `Janvier'
print $monster->{Jan}; # This can *also* print `Janvier'
- or download this
$a="User-Agent:PlMk";$u="
xavier.penguinpowered.com
...
)">(.+?)<\/a>/$2($1)/sgx;
$d=~s/<(br|p|li)>/\n/g;$d
=~s/<.+?>//gsx;print"$d";
- or download this
# to squish a string
y sssscccc;
...
y ccccdddd;
y dddcdccc;
y yyycd;
- or download this
$Old_MacDonald = q#print #; $had_a_farm = (q-q:Just another Perl hacke
+r,:-);
s/^/q[Sing it, boys and girls...],$Old_MacDonald.$had_a_farm/eieio;
- or download this
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
- or download this
#!/usr/bin/perl
use Curses;keypad initscr;nodelay 1;box qw{| -};($l,$d,$k,@f)=(1..3,[1
+0,10]);&
...
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}
- or download this
#!/usr/bin/perl -w # my 2 cents worth
...
>>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;
- or download this
# smiley -
...
^c@&=> hex$_}
;print "\n"#)
=~s,[&^@\s]+, ,g;eval$R
- or download this
$_='",",/[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
- or download this
#!/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"