#!/usr/bin/perl
 
use warnings;
use strict;
 
$\ = $/;
 
$_ = <>, chomp;
@_ = map { s/^\s+|\s+$//gr } map { split m/[.]\K\s+(?=[A-Z0-9])/ } split m/[!?]\K/;
 
<>;
 
while(<>){
	chomp;
	m/\w/ or next;
    # lowercase each word and write it into look-ahead (\b - word boundary):
    my $re = join '', map "(?=.*\\b$_\\b)", map lc, m/\w+/g; 
	my @found = grep m/$re/i, @_; # i = ignore case
 
	print "Search results for \"$_\":";
	print "- \"$_\"" for @found;
}

IyEvdXNyL2Jpbi9wZXJsCgp1c2Ugd2FybmluZ3M7CnVzZSBzdHJpY3Q7CgokXCA9ICQvOwoKJF8gPSA8PiwgY2hvbXA7CkBfID0gbWFwIHsgcy9eXHMrfFxzKyQvL2dyIH0gbWFwIHsgc3BsaXQgbS9bLl1cS1xzKyg/PVtBLVowLTldKS8gfSBzcGxpdCBtL1shP11cSy87Cgo8PjsKCndoaWxlKDw+KXsKCWNob21wOwoJbS9cdy8gb3IgbmV4dDsKICAgICMgbG93ZXJjYXNlIGVhY2ggd29yZCBhbmQgd3JpdGUgaXQgaW50byBsb29rLWFoZWFkIChcYiAtIHdvcmQgYm91bmRhcnkpOgogICAgbXkgJHJlID0gam9pbiAnJywgbWFwICIoPz0uKlxcYiRfXFxiKSIsIG1hcCBsYywgbS9cdysvZzsgCglteSBAZm91bmQgPSBncmVwIG0vJHJlL2ksIEBfOyAjIGkgPSBpZ25vcmUgY2FzZQoKCXByaW50ICJTZWFyY2ggcmVzdWx0cyBmb3IgXCIkX1wiOiI7CglwcmludCAiLSBcIiRfXCIiIGZvciBAZm91bmQ7Cn0=

ICBhYmMgLiBJZiBvcCA/IC4gLiBOdWQgLiBwbCAhIHVtIGlzcCAuICAKOAphYmMKaWYKbnVkCmlzcApvcCAgIG51ZApvcCBpZgppZiBvCg==

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