Help for this page

Select Code to Download


  1. or download this
    perl -Dr -e '
  @l = ("A".."Z","a".."z",qw(< / >),0..9);
...
100014 <body></html>> <>       | 11:END(0)
Match successful!
Freeing REx: "(</body></html>)$"
  2. or download this
    use Benchmark qw(cmpthese);
@l = ("A".."Z","a".."z",qw(< / >),0..9);
...
           Rate noanchor   anchor
noanchor 5023/s       --     -19%
anchor   6222/s      24%       --