#!/usr/bin/perl

use warnings;
use strict;

open (READ, "test.xml") || die "ERROR: $!\n";
    my @array = <READ>;
close READ;

open (WRITE, ">new.xml") || die "ERROR: $!\n";

foreach (@array) {
	if ($_ =~ m'<!-- Testing XML -->'){
		print WRITE  "<bar>\n",
					 "<name> TEST </name>\n",
					 "<type> Foo </type>\n",
					 "<!-- PDP Status -->\n",
					 "<unknown_sec> 0 </unknown_sec>\n",
					 "</bar>\n\n";
	}
	if ($_ =~ m'</Test Tag>' ) {
		print WRITE "<bar><value> TEST </value></bar>\n";
	}
	if ($_ =~ m[\Q</v></row>\E\n$] ) {
		$_ =~ s[\Q</row>\E\n$][<v> UnKnown </v></row>\n];
	}
	print WRITE $_;
}

close WRITE;