I just tried following code and it works for me:-

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