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