#!perl
#-fraggs-

use strict;
use warnings;

my $book = 'x:\\locationofbook';
my @liste = "";

print "Wort eingabe: \n";
my $wort = <STDIN>;

open( FILE, "<", $book )  or die $!;

#code to search for the $wort goes here 
my $search = $wort
if ($book =~ m/$search/) {
    print " $search "; #nicht sicher ob das klappt
} else {
    print 'nicht gefunden';
}

close(FILE);