Select Code to Download

@textquery = ();
$text =~ s/[^\w\d\s\-]//g;
...
    push @textquery, 'search_text LIKE ?';
    push @data, '%' . $word . '%';
}

UPDATE table SET search_text = CONCAT_WS(' ', name, headline, caption)
+;

$text =~ s/[^\w\d\s'"\-]//g;
@words = parse_line('\s+', 1, $text);

unless (@words) {
    @words = split /\s+/, $text;        
}

SELECT x, y, z FROM table WHERE x REGEXP '[[:<:]]word[[:>]]'

SELECT x, y, z FROM table WHERE x LIKE '%word%' AND x REGEXP '[[:<:]]w
+ord[[:>]]'

foreach my $word (@words) {
    if ($word =~ s/^(["'])(.+)\1$/$2/) {
...
        push @data, '%' . $word . '%';
    }
}