Select Code to Download

while ( $content =~ s/(.*<level1 id="([^"]*).*?)<level2>/$1<level2 id=
+\"$2\">/gsi ) {  }

#!/usr/bin/perl
use XML::DOM;
...
print $doc->toString;
exit();