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