# open my $fh, '/home/test.xml' or die $!;
my $fh = \*DATA;

while (<$fh>) {
	next if m{<INFO>(.*?)</INFO>}i;
	print;
}

__DATA__
  <COMPLETE>
    <T>test</T>
    <L>light</L>
    <INFO>information</INFO>
  </COMPLETE>

   <COMPLETE>
     <T>test</T>
     <L>light</L>
     <INFO>informa</INFO>
  </COMPLETE>