Select Code to Download

pl@nereida:~/src/perl/perltesting$ cat ./timeregexpwithp.pl
#!/usr/local/lib/perl/5.10.1/bin//perl5.10.1 -w
...
    oldwaynoassign => q{'hola juan' =~ /ju/; }
  }
);

pl@nereida:~/src/perl/perltesting$ ./timeregexpwithp.pl
           Rate      p oldway
...
                    Rate oldwaynoassign      pnoassign
oldwaynoassign 3184713/s             --            -1%
pnoassign      3225806/s             1%             --