#!/usr/bin/perl -w

open(INFILE, "</test.xml") or die "Can't open input.txt: $!";
open(OUTFILE, ">output.txt") or die "Can't open output.txt: $!";

my $string = do { local $/; <INFILE> };
my $text = $string;
#print $string;
$text =~ s/(<package id="ReportViewer" name="M.*<\/package>)//ms;
#print $text;
print $&;
print OUTFILE $text;
close INFILE;
close OUTFILE;