Select Code to Download

  my $pos; 
  if ( $line =~ $regex ) { 
     $pos = length $`; 
  }

#!/usr/bin/perl
use strict;
...
                   close $FH;
               },
           });

                    Rate index regex_pos regex regex_compiled_pos rege
+x_compiled
index              450/s    --      -38%  -39%               -40%     
+      -41%
...
regex              741/s   65%        2%    --                -1%     
+       -3%
regex_compiled_pos 749/s   66%        3%    1%                 --     
+       -2%
regex_compiled     763/s   70%        5%    3%                 2%     
+        --