#!/usr/bin/perl
 
use warnings;
use strict;
 
$\ = $/;
 
$_ = <>, chomp;
my @sen = map { s/^\s+|\s+$//gr } map { split m/[.]\K\s+(?=[A-Z0-9])/ } split m/[!?]\K/;
my %H;
for my $sen (@sen){
    while( $sen =~ m/\w+/g ){
        $H{ $sen }{ lc $& } = 1;
    }
}
 
<>;
 
while(<>){
	chomp;
	m/\w/ or next;
	my( @words ) = map lc, m/\w+/g;
	my @found;
	for my $sen (keys %H){
        my $f = 0;
        for my $w (@words){
            $H{ $sen }{ $w } or $f = 1;
        }
        $f or push @found, $sen;
	}
	print "Search results for \"$_\":";
	print "- \"$_\"" for @found;
}

IyEvdXNyL2Jpbi9wZXJsCgp1c2Ugd2FybmluZ3M7CnVzZSBzdHJpY3Q7CgokXCA9ICQvOwoKJF8gPSA8PiwgY2hvbXA7Cm15IEBzZW4gPSBtYXAgeyBzL15ccyt8XHMrJC8vZ3IgfSBtYXAgeyBzcGxpdCBtL1suXVxLXHMrKD89W0EtWjAtOV0pLyB9IHNwbGl0IG0vWyE/XVxLLzsKbXkgJUg7CmZvciBteSAkc2VuIChAc2VuKXsKICAgIHdoaWxlKCAkc2VuID1+IG0vXHcrL2cgKXsKICAgICAgICAkSHsgJHNlbiB9eyBsYyAkJiB9ID0gMTsKICAgIH0KfQoKPD47Cgp3aGlsZSg8Pil7CgljaG9tcDsKCW0vXHcvIG9yIG5leHQ7CglteSggQHdvcmRzICkgPSBtYXAgbGMsIG0vXHcrL2c7CglteSBAZm91bmQ7Cglmb3IgbXkgJHNlbiAoa2V5cyAlSCl7CiAgICAgICAgbXkgJGYgPSAwOwogICAgICAgIGZvciBteSAkdyAoQHdvcmRzKXsKICAgICAgICAgICAgJEh7ICRzZW4gfXsgJHcgfSBvciAkZiA9IDE7CiAgICAgICAgfQogICAgICAgICRmIG9yIHB1c2ggQGZvdW5kLCAkc2VuOwoJfQoJcHJpbnQgIlNlYXJjaCByZXN1bHRzIGZvciBcIiRfXCI6IjsKCXByaW50ICItIFwiJF9cIiIgZm9yIEBmb3VuZDsKfQ==

ICBhYmMgLiBJZiBvcCA/IC4gLiBOdWQgLiBwbCAhIHVtIGlzcCAuICAKOAphYmMKaWYKbnVkCmlzcApvcCAgIG51ZApvcCBpZgppZiBvCg==

  abc . If op ? . . Nud . pl ! um isp .  
8
abc
if
nud
isp
op   nud
op if
if o