Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

my $dat = 'DR Pfam; PF00070; Pyr_redox; 2.';
my $info = (split '; ', $dat)[1];
say $info;

Select or download this
```
PF00070
```