Select Code to Download

use strict;
use warnings;
...
          /$1/x;            

print $word;

$word =~ s/(?:^\W+)|(?:\W+$)//g;

               Rate     capture non_capture
capture     16561/s          --        -28%
non_capture 22861/s         38%          --