#!/usr/bin/perl -w

use strict;

open(READ, "test.xml") || die "Error opening test.xml: $!\n";
open(WRITE, ">new.xml") || die "Error opening new.xml: $!\n";
while(<READ>)
  {
  if( $_ eq q{<!-- Testing XML -->})
    {
    print WRITE <<"EWRITE";
<bar>
<name> TEST </name>
<type> Foo </type>
<!-- PDP Status -->
<unknown_sec> 0 </unknown_sec>
</bar>

EWRITE
    }
  if($_ eq "</ Test Tag>/)
    {
    print WRITE <<ETT;
<bar><value> TEST </value>
</bar>

ETT
    }
  if($_ eq "</v></row>\n")
    {
    s/\<\/row\>\n$//;
    $_ .= "<v> UnKnown </v></row>\n";
    }
print WRITE;
}
close(READ);
close(WRITE);
[download]