@strings = ("PMID: PMID: 4012367", "PMID: doi:10.1093/fampra/cmq003PMID: 20215333");

for $string (@strings) {
    if ($string =~ /PMID: (\d+)/) {
	print "$1\n";
    }
}

#OUTPUT
#4012367
#20215333