Help for this page
my $info = (split /\s*;\s*/, $dat)[1];
use Modern::Perl; my $dat = 'DR Pfam; PF00070; Pyr_redox; 2.'; $dat =~ /;\s*(\w+)\s*;.+;/ and say $1; #prints PF00070
www.com | www.net | www.org
No recent polls found