...
 (my $notags = $string) =~ s{<file.+?</file>}{};
  print "$notags\n";
  ...