#!/usr/bin/perl 


print "Search for what: ";
chomp(my $search = <STDIN>);
@words = split(/ /, $search);

open(DATA, "books.txt") or die "error opening file $!";

while (<DATA>) {
$matches=0;
	foreach $word(@words) {
		 
		chomp($word);		
		if (/$word/i) {
			print unless ($matches > 0);	
                        $matches++;        		
		}
	}
}