open FH, "test.xml";
while (<FH>)
{
	next if ($_ =~ /\<INFO/ig);
	print $_;
}