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