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