Help for this page

Select Code to Download

Select or download this
```
my $info = (split /\s*;\s*/, $dat)[1];
```

Select or download this

use Modern::Perl;

my $dat = 'DR Pfam; PF00070; Pyr_redox; 2.';
$dat =~ /;\s*(\w+)\s*;.+;/ and say $1;    #prints PF00070