use Benchmark qw/cmpthese/;
                                                  
my $line = 'rs11502186 C/G Chr11 170472 + ncbi_b34 perlegen urn:lsid:perlegen.hapmap.org:Protocol:Genotyping_1.0.0:2 urn:lsid:perlegen.hapmap.org:Assay:25763.7541533:1 urn:lsid:dcc.hapmap.org:Panel:CEPH-30-trios:1 QC+ GG GG GG NN GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG NN GG GG GG NN GG GG GG GG GG GG GG GG GG GG GG GG GG NN GG GG GG GG NN GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG GG';


cmpthese(-1, 
     {                             
            'Greedy' => sub {$line =~ /(chr.*?)\s.*urn:lsid:(.*?)\s.*panel:(.*?):/i},             
            'Non' => sub {$line =~ /(chr.*?)\s.*?urn:lsid:(.*?)\s.*?panel:(.*?):/i},              
            'Sep' => sub {$line =~ /(chr.*?)\s/i;
                          $line =~ /urn:lsid:(.*?)\s/i;
                          $line =~ /panel:(.*?):/i;
                      },                          
            'Death_star' => sub {$line =~ /(chr[^\s]+)/i;
                          $line =~ /urn:lsid:([^\s]+)/i;
                          $line =~ /panel:([^:]+)/i; 
                     } 
      }
);

##</code><code>##

               Rate     Greedy        Sep        Non Death_star
Greedy       8650/s         --       -95%       -95%       -97%
Sep        157827/s      1725%         --        -6%       -41%
Non        167020/s      1831%         6%         --       -38%
Death_star 267963/s      2998%        70%        60%         --