#!/usr/bin/perl
use strict;
use warnings;

open my $fh, "<", $path or die "Could not open: $!";
my @inhalt = <$fh>;
close $fh;

# gehe das Array rückwärts durch und lösche alle Zeilen die eine Bedingung aufweisen.
for my $nr (reverse(0..$#inhalt))
{
  my $zeile=$inhalt[$nr];
  splice(@inhalt,$nr,1) if($zeile=~/<Ausschusskriterium>/);
}

# mach was mit den übrig gebliebenen Zeilen
...