sub SmartSearch {
    my $srch = shift;
    my $eref = $_{ EXC }{ $srch };
    for my $exc ( keys %$eref ) {
        s/$exc//g;
    }
    return /$srch/;
}