while ($ts=~ s|(?<=<item name=\"DISPLAY_ORDER\"><value>)\d+(?=\<\/value><\/item><item name=\"PARAGRAPH_TEXT\">)|$paranum|si ) { 
  print "Set PNum: $paranum\n";
  $paranum++;
  }