#!/usr/bin/perl 

use warnings;
print "Search for what: ";
chomp(my $search = <STDIN>);
@words = split(/ /, $search);
open(DATA, "books.txt") or die "error opening file $!";

while (<DATA>) {
	foreach $word(@words) {
		chomp($word);		
		if (/$word/i) {
			print;		
		}
	}
}