#!/usr/bin/perl
use warnings;
use strict;
$\ = $/;
<>;
while(<>){
m/\w/ or next;
# lowercase each word and write it into look-ahead (\b - word boundary):
my @found = grep m/$re/i, @_; # i = ignore case
print "Search results for \"$_\":"; print "- \"$_\"" for @found; }
IyEvdXNyL2Jpbi9wZXJsCgp1c2Ugd2FybmluZ3M7CnVzZSBzdHJpY3Q7CgokXCA9ICQvOwoKJF8gPSA8PiwgY2hvbXA7CkBfID0gbWFwIHsgcy9eXHMrfFxzKyQvL2dyIH0gbWFwIHsgc3BsaXQgbS9bLl1cS1xzKyg/PVtBLVowLTldKS8gfSBzcGxpdCBtL1shP11cSy87Cgo8PjsKCndoaWxlKDw+KXsKCWNob21wOwoJbS9cdy8gb3IgbmV4dDsKICAgICMgbG93ZXJjYXNlIGVhY2ggd29yZCBhbmQgd3JpdGUgaXQgaW50byBsb29rLWFoZWFkIChcYiAtIHdvcmQgYm91bmRhcnkpOgogICAgbXkgJHJlID0gam9pbiAnJywgbWFwICIoPz0uKlxcYiRfXFxiKSIsIG1hcCBsYywgbS9cdysvZzsgCglteSBAZm91bmQgPSBncmVwIG0vJHJlL2ksIEBfOyAjIGkgPSBpZ25vcmUgY2FzZQoKCXByaW50ICJTZWFyY2ggcmVzdWx0cyBmb3IgXCIkX1wiOiI7CglwcmludCAiLSBcIiRfXCIiIGZvciBAZm91bmQ7Cn0=