sub SmartSearch {
    my $srch = shift;
    s/\w+\s*${srch}//g;
    s/\#$srch//g;
    s/$srch\s*\w+//g;
    s/$srch\#//g;
    return /$srch/;
}