foreach my $word (@words) {
    if ($word =~ s/^(["'])(.+)\1$/$2/) {
        push @textquery, 'srch_text LIKE ? AND srch_text REGEXP ? ';
        push @data, '%' . $word . '%';
        push @data, '[[:<:]]' . $word . '[[:>:]]';
    } else {
        push @textquery, 'srch_text LIKE ?';
        push @data, '%' . $word . '%';
    }
}