while($line =~ /<P_contrib-author>(.*?)<\/P_contrib-author>/)
  {
 $auth .=$1;
 }
  $line ="<alt-title alt-title-type=\"running-head-verso\">$auth</alt-title>";