Help for this page

Select Code to Download


  1. or download this
    eva1("do NOT print 'just another perl hacker'");sub
eva1{($x=$_[0])=~s/[^']*?'([^'].*)'.*/\1/;print $x}
  2. or download this
    ($j='000011-02001-84065013001005-12-03013-
82080-11013-06-76072-07002008-06013-68013-
...
length($j);for($i=0;;$i+=3){$x=(substr($j,
$i,3)+$x);$_.=(chr($x));last if $x == 46;}
print;