my $cut = 0;
while(<FILE>)
{
  if(/<\/root>/)
  {
     $cut = 1;
  }
  elsif(/<root>/)
  {
     $cut = 0;
     next;  # skip this line as well, but stop cutting
  }

  if(!$cut)
  {
     print OUTFILE $_;
  }
}