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; 
                     } 
      }
);