Select Code to Download

#!/usr/bin/env perl

...
}

print $newdom->toString(1);

#!/usr/bin/env perl

...
   $parent->appendChild( $_ ) foreach @rules;

print $dom->toString(1);