#!/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 ($_ =~ /\<\!\-\- Testing XML \-\-\>/){
	print WRITE '<bar>', "\n";
	print WRITE '<name> TEST </name>', "\n";
	print WRITE '<type> Foo </type>', "\n";
	print WRITE '<!-- PDP Status -->', "\n";
	print WRITE '<unknown_sec> 0 </unknown_sec>', "\n";
	print WRITE '</bar>', "\n\n";
    }
    if ($_ =~ /\<\/ Test Tag\>/) {
	print WRITE '<bar><value> TEST </value>';  
	print WRITE '</bar>', "\n";
    }
    if ($_ =~ /\<\/v\>\<\/row\>\n$/) {
	$_ =~ s/\<\/row\>\n$//;
	$_ .= '<v> UnKnown </v></row>' . "\n";
	print WRITE $_;
   }
    else {
	print WRITE $_;
    }
}

close WRITE;