elsif ($BOOL eq 'und') {
    my $nomatch = @TEXTS;
    for my $text (@TEXTS) {
        my $textnometa = quotemeta ($text);
        last unless $line =~ s/$textnometa/<b>$text<\/b>/g;
        --$nomatch;
    }
    &result unless $nomatch;
}