Sigs

$_ = 'thYn. PYehlnohlrne.kchla'; $salt = 'P arctehYkl.no|on.lkYhetcra P';
eval "tr|$salt|"; print;

$_="+21P-A6-d-.+i-51-12+V-#+22-;-L+6-2-H+6-21+R+3-5-13+T-12";
s/[#.A-Wild;]/ord$&/eg;while( /[-+]\d+/g ){   @a or @a=($&) and next; 
unshift @a, map {($_+$&)/2 => ($_-$&)/2} pop @a; } print map chr, @a;

$_ = localtime;      $i = 3814279.10476024;         $\ = ' ';
do{ s/.*(er)l/hack$1./  ; s/.*(er)$/P$1l/ ; 
    s/.*(t).*/ano$1her/ ; s/.*:.*/Just/   ; print; }while( $i = log $i );

print map chr hex,
      '59657420616e6f74686572205065726c206861636b65722e' =~ /../g;

%m=map{$_=>1}split'',$m="ah .cor kht.Yhtn.kcelhtP";$z=@m=sort keys%m; 
while(--$z){undef@e;push@e,"\$m =~ y/&",@m,"/";push@m,shift@m;push@e,
'.',@m,"/;";eval join'',@e;}print $m;

print map chr int ($_/1.1), map ord, split '', 
      'bp€$kz{€sp~$Yp~w$skmvp~3';

print map chr$_[0]-ord$_,@_='200ocT¨gZYT`cV¨xcV\¨`ge]cV'=~m;(\d+|.);g;

$,=' '; $\="\n"; @_= qw/a a a a/; @s= qw/17049 482466755 285075 95568295/;
while( (sort @s)[-1] ){ map $s[$_]-->0&&++$_[$_], (0..$#_); print @_; } 
                    ### May take some time. :) ###

$_=qq/ evil'prank from"yet another Perl hacker."'/;
open from, ">-" and close to, "-<";
y,i,a,;'h! My poor little boat'; s'ank'int'o;'the sea';
'Alas, alas, she was not ready to sail th',eval;'ley of tears.';

eval" use 'that poor Yanick' ";
print map{ (sort keys %{{ map({$_=>1}split'',$@) }})[hex] }
qw/8 b 15 1 9 10 11 15 c b 13 1 12 b 13 f 1 c 9 a e b 13 0/;

                    $_ = 'eatYerno Plteh khaer. cr';
                           $S++ ; $oS = ++$S ;
eval 's~'. ( '('. '.'x$S++ .')' ) x $oS . '~$' . $oS-- .'$'. $oS++ .'~g'
                until $S > int sqrt length and print;

@_=map hex hex||' ',qw-f4240 1388a 0 14ff1 50 4e2a 0 1f40 
4e2a 320 0 50 195 4e2a-;for(@_){($i,$e)=('a',($_+0)?'':$_
);do{$_&1and$e.=$i}while($_>>=$i++**0);print reverse$e;}

$_ = q   and s(\S)
{chr int (5 *sin$i ++)+ ord $& }ge and print

$_=ucfirst((@_=(  Email    => 'yanick1@sympatico.ca', 
                  Web_Site => 'http://www.iro.umontreal.ca/~champoux'   
))[1]);s!(.)(..)(.)(..).*!spylqg$2othyqm$3ntrepidqf$1etqwha$4y.!
;s,y,er,g;$_=join'q',sort split/q/;y:fgmqsw: :;print; 

$_= "e nte elhce.rka rPrhoatY";   @nothing = ( '', '' );
s#(.)(.*)(.)#$2#g and ($\,$,)=($1,$3) and print @nothing
while $_;

($\,$x,$l)=("\n",' substr($s,$l,$i)',-length($s='8910111632'
.'97110'.(1x5).'6104101114328010111410832104979910710111446'
));{$i++until$1+grep$_>123,eval$x,$i;$i--;eval"$x=chr$x";
print$s;($l+=$i)<0&&redo;}

$\="\n";$_='089101116 097110'.(1x5).'6104101114 080101114108'.
' 104097099107101114046';until(7==y/Ya-zP.// / y/ //){s/\d{3}/
rand()<0.2?chr$&:$&/xeg;s/[Pa-zY.]/rand()<0.05?sprintf"%03d",
ord$&:$&/xeg;print;}

($s,$\)=('Yea tton rPehhareclek r.',"\n");for( 0..613 ){
$sin = 21*(0

for( $_ ='YtaohrPr akre nte elhce.'; ($i+2)**-1>  2/length; ++$i )
{ @a = split  /(.)./;
  @b = split /.(.)/ ; print ( ( $_ = join '', @a, @b ), "\n" );  }

@s=split'',"Aaa aaaaaaa Aaaa aaaaaa.";@a=qw(24 4 19 0 0 13 14 19 7 4 17 
0 15 4 17 11 0 7 0 2 10 4 17 0);$d=-1;while(eval join"",map("$_||",
@a),0){$a[$p]and$s[$p]++and$a[$p]--;print$_==$p?"\u$s[$_]":$s[$_]for 
0..$#s;print"\n";$d*=-1 if!$p or$p==$#s;$p+=$d;}

# As seen on c.l.p.m!  
sub output_fun { local $\ = "\n"; $_ = shift;
print and s#.( +).# $1 #g or substr($_,length()/2,1)=' ' while /\w/; }
                                output_fun 'Yet another Perl hacker.';

($a,$z)=(sort split'',$_=';/ t3&% ,/"tD/"(t,31)/"f')[0,-1];
s/./chr(ord($z)-ord($&)+ord$a)/eg;print

eval $problem."
require 'yet another Perl hacker' " unless $trivial;
callsys; # surely the sys-admin knows Perl
wait; wait; wait; # why doesn't he answer?
listen PHONE, 0;$@=~s/^.*?(y.*?)in.*$/\u$1/; # argh! line noise!
warn $whine and $curse => "$@$;@_"; # *sigh* Plan B, then...
use CPAN;

($_,$y)=("Yhre lo  .kePnarhtretcae\n",   '(.) (.)'  );
$y=~s/\(/(./gwhile s/$y/$2$1/xg;print;       @      !; 
                                     "     `---'    ";

@sympatico = ( '@sympatico' ); print $_ = < Yanick1@sympatico.ca, 
   Web_Site => http://www.iro.umontreal.ca/~champoux   
NAB
s!^.*(.)(..)(.)(..)1\@.*!spylqg$2othyqm$3ntrepidqf$1etqwha$4y.!s; 
            s,y,er,g;$_=join'q',sort split/q/;y:fgmqsw: :;print; 

($_,@.)=split m<[\d=[\]]>,"Y..0e0t0 =a0n0o0t0h0e0r= [P0e0r0l] "
 .  "0h0a0c0k0e0r";          y|.    |.   |s  ;
for $0(1..23)  {  $_ .='.' x s|  (.)[.] $|$
                           +. shift@ .|ex|| '.'   } ;print;

$_ = 'Oxsgnm0qtkdr0nudq0C`fna`g+0ats0nm0S`snhmd0sgd0B`ldk0hr'
.'0jhmf-';s,(.),!$1?' ':chr(ord($1)+1),eg;print;

;s||kcl Prhlocn acnt oPeYcn|s; # tnirp ;    m:-= I palindrome I =-:m;
;;;y&'YetanohrPlck'&'kclPrhonateY'&&&'YetanohrPlck'&'kclPrhonateY'&y;;;
  ;m:-= I emordnilap I =-:m    ; print # ;s|ncYePo tnca ncolhrP lck||s;     

                 map { print chr( $l += $_ ) } '
89+12+15-84+65+13+1+5-12-3+13-82+48+21+13-6-76+72-7+2+8-6+13-68==46
                     ' =~ /(-?\d+)(?=..)/g;

$_='Yrtkao hrrP elthnc e.';s;[ae];$&$&;g;print t(split''); 
sub r{reverse@_};sub t{my$l=pop;@_?(shift,t(r@_),$l):'';}

print map { ( split '', 'P arctehYkl.no' )[ hex ] } 
      split '', '86512cd57631063a1724963b';

print join ' ', reverse split ' ', reverse join ' ', 
q/teY rehtona lreP .rekcah/;

@l=split'','Ynletkehcroah  ee rtrPa';sub f($){int 24*sin
($_[0])**2}print$l[f$i]and$l[f$i++]=''until"@l"=~/^\s*$/;

($_,$\,@_  )=(   'Yeta onhterPrce h leark',      "\n",split'',
'movfgmqjnelophrthuffrtoeqerpgvnhplgusujgkmlqesatokwlvpkwdasn' );
 $i=-97+ord$a,s/(?<=.{$i})(.)(.)/$2$1/,print while$a=shift@_;

$\="\n";%_=   reverse qw/ Yet another Perl hacker,    /;s/....//for%_;
tr/ic/ky/ for map                      do{ $it for s /h(.*)er/
"$1"/e }, grep s:.t.*|,::, reverse, sort @_ = sort %_; /k/?y/a/i/:'!' 
for @_  ; print@_;                  # might not work if $] != 5.006001