http://qs321.pair.com?node_id=986543

invaderzard has asked for the wisdom of the Perl Monks concerning the following question:

Hi all, I'm trying to extract some information from a .dat file. The format of the information I'm trying to extract is this.

DR Pfam; PF00070; Pyr_redox; 2.

What I want is the PF00070 inside.

I tried several regex like (/(?<=DR\s\s\sPfam;\s\w\w\d\d\d\d\d)(.*)$/)

(/(?<=DR\s\s\sPfam\s)\w\w\d\d\d\d\d(?=\b)/)

(/(?<=DR\s\s\sPfam\;/s)\w\w\d\d\d\d\d(?=\b)/)

But none of them seem to work. Any help would be appreciated. Thanks!