my $info = (split /\s*;\s*/, $dat)[1];

##</code><code>##

use Modern::Perl;

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