if($foo->identifiers() =~ /PMID: (\d+)/) {print FH "$1\n";}