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