给 perl hacker 们看的[10]

           ${${${@}}[$#{@{${@}}}]}[$#{${@{${@}}}[$#{@{${@}}}]}]'
%%
#Abigail
$_ = "\nrekcaH lreP rehtona tsuJ"; my $chop; $chop = sub {print chop; $chop};
$chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
-> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
%%
#Abigail
perl -we '$| = 1; $_ = "Just another Perl Hacker\n";  print
          substr  $_ => 0, 1 => "" while $_ && sleep 1 => 1'
%%
#Abigail
($;,$_,$|,$\)=("\@\x7Fy~*kde~box*Zoxf*Bkiaox"," "x25,1,"\r");
{vec($_=>1+$"=>$^F<<$^F)=ord($/^substr$;=>$"=int rand 24=>1);             
 print&&select$,,$,,$,,$|/($|+tr/ //c);redo if y/ //>$^F**2};
%%
#Abigail
($;,$_,$|,$\)=("\@\x7Fy~*kde~box*Zoxf*Bkiaox","#"x25,1,"\r");
s/./ /;{vec($_=>1+$"=>8)=ord($/^substr$;=>$"=int rand 24=>1);
print&&select$,,$,,$,,$|/($|+tr/#//c);redo if y/#//};sleep 1;
%%
#Abigail
$=-=4*++$|;{print$"x--$==>"\@\x7Fy~*kde~box*Zoxf*Bkiaox \r"
                            ^
$/x24if!select$,,$,,$,,join+q=.==>$^W=>$|;$=&&redo}sleep$|;
%%
#Abigail
@_=map{[$!++,$_^$/]}split$?"\@\x7Fy~*kde~box*Zoxf*Bkiaox";$\="\r";
$|=++$*;do{($#,$=)=(rand@_,rand@_);@_[$#,$=]=@_[$=,$#]}for($*..@_);
for$:($|..@_-$|){for($|..@_-$:){@_[$_-$|,$_]=@_[$_=>$_-$*]if$_[$_][
$篯<$_[$_-$*][$芣;print+map{$_->[$|]}@_;select$?$?$?0.1}}print$/
%%
#Abigail
@_=map{[$!++=>$_^$/]}split$?>"\@\x7Fy~*kde~box*Zoxf*Bkiaox";$\="\r";
$|=++$*;do{($#=>$=)=(rand@_=>rand@_);@_[$#,$=]=@_[$=,$#]}for($*..@_);
for$:($|..@_-$|){for($|..@_-$:){@_[$_-$|,$_]=@_[$_=>$_-$*]if$_[$_][$?]<$_[$_-$*][$芣;print+map{$_->[$|]}@_;select$?$?$?"$[.$|"}}print$/
%%
#Abigail
BEGIN {print "Just "   }
CHECK {print "another "}
INIT  {print "Perl "   }
END   {print "Hacker\n"}
%%
#Abigail
perl -wle'print"牉圪莘釉偎纶莪纶陷环撐纶"^"\x80"x24'
%%
#Abigail
   my $qr =  qr/^.+?(;).+?\1|;Just another Perl Hacker;|;.+$/;
      $qr =~  s/$qr//g;
print $qr, "\n";
%%
#Abigail
use   lib sub {($\) = split /\./ => pop; print $"};
eval "use Just" || eval "use another" || eval "use Perl" || eval "use Hacker";
%%
#Alex Gough (alex@rcon.org)
#!/usr/bin/perl
use Quantum::Entanglement qw(:DEFAULT :complex);
$language=entangle(1,'python',1/i,'C',i*i,'perl',1/i**2,'Java',i**5,'C#');
print "Just another $language hacker,\n" if $language eq 'perl';
%%
#John Porter <jdporter@min.net>
eval { 62->lZRopcwjoXyup_yuGpXcxbyu() };
$@ =~ s/"(.*?)"/"ss"/;
print((split//,$@)[map{ord($_)-62}split//,$1],",\n");
%%
#Casey West
my $html;$html.=$_ while<DATA>;$html=~s/[^ ]  <([^\/])/
'  <'.chr(ord($1)-32)/ges;$html=~s/\n//gs;$html=~s/^  /
/;$html=~s/ {2,3}/SPC/g;$html=~s/ //g;$html=~ s/SPC/ /g
;$html=~s/<([^\/])/'<'.chr(ord($1)-1)/ge;print join"\n"
,join('',($html=~m/(?:<([^\/])|( ))/g)),'';# Formatting
__END__
 
  <kbd>Type some HTML</kbd> into a <var>Variable</var>.
and you set it's <tt>value</tt>. <u>Amazing!</u>   <br>
<object code="srccode"><param name="code" value="Perl">
 <u>You don't have a Perl enabled browser :-( shame</u>
<img alt="Perl forever!" src="perl.png"></object><form>
Quote this text:<samp>Perl. Live it, love it, learn it.
</samp>  <q>Perl. Live it, love it, learn it. </q><font
color="#FF0000">Perl is the only cure to your headaches
</font><script language="JavaScript">function push_me()
{alert('Javascript won\'t help!') }</script><marquee>IE
won't help! </marquee>  <i>When this just hurts... </i>
<button name="pushme" onClick="push_me();return true;">