$ time perl pm923771.pl
         Rate  swap  orig regex
swap  0.544/s    --  -47%  -81%
orig   1.03/s   89%    --  -64%
regex  2.87/s  427%  178%    --

real    2m38.179s
user    2m34.503s
sys     0m3.463s