while($line =~ /<P_contrib-author>(.*?)<\/P_contrib-author>/)