#!/usr/bin/perl

print "Suchbegriff: ";
$sch=<STDIN>;
open(FILE, "index")

or die "Fehler beim oeffnen der Datei!!!\n";

while(defined ($var=<FILE>))
{
if($var=~/$sch/)
{
print "true\n";
}
}