#!/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
...

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

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

my @inhalt_bearbeitet;
while(@inhalt)
{
  my $zeile=shift @inhalt;
  push(@inhalt_bearbeiet,$zeile) if($zeile!~/<Ausschusskriterium>/);
}

# mach was mit @inhalt_bearbeitet
# @inhalt ist leer
...