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

my $file=shift(@ARGV) || die "Bitte Dateinamen angeben!\n";
my $regexp=shift(@ARGV) || 'bla';
print "Überprüfe $file mit dem Ausdruck /$regexp/ \n";

open( INPUTFILE, $file) || die "Konnte $file nicht öffnen";
while(<INPUTFILE>)
{
  my $back = grep {$_ =~/$regexp/} <INPUTFILE>;
  if ($back > 0)
  { print "Eintrag vorhanden!\n"; }
  else
  { print "Keinen Eintrag gefunden!\n"; }
}
close( INPUTFILE );