#!/usr/bin/perl
use warnings;
use strict;
$\ = $/;
<>;
while(<>){
m/\w/ or next;
my( @words ) = m/\w+/g;
my @found = @sentences;
for my $word (@words){
@found = grep m/\b$word\b/i, @found; }
print "Search results for \"$_\":"; print "- \"$_\"" for @found; }
IyEvdXNyL2Jpbi9wZXJsCgp1c2Ugd2FybmluZ3M7CnVzZSBzdHJpY3Q7CgokXCA9ICQvOwoKJF8gPSA8PiwgY2hvbXA7Cm15IEBzZW50ZW5jZXMgPSBtYXAgeyBzL15ccyt8XHMrJC8vZ3IgfSBtYXAgeyBzcGxpdCBtL1suXVxLXHMrKD89W0EtWjAtOV0pLyB9IHNwbGl0IG0vWyE/XVxLLzsKCjw+OwoKd2hpbGUoPD4pewoJY2hvbXA7CgltL1x3LyBvciBuZXh0OwoJbXkoIEB3b3JkcyApID0gbS9cdysvZzsKCW15IEBmb3VuZCA9IEBzZW50ZW5jZXM7Cglmb3IgbXkgJHdvcmQgKEB3b3Jkcyl7CgkJQGZvdW5kID0gZ3JlcCBtL1xiJHdvcmRcYi9pLCBAZm91bmQ7Cgl9CglwcmludCAiU2VhcmNoIHJlc3VsdHMgZm9yIFwiJF9cIjoiOwoJcHJpbnQgIi0gXCIkX1wiIiBmb3IgQGZvdW5kOwp9