$text =~ /\Q$search/

##</code><code>##

$search =~ s/(\W)/\\$1/g;  # same as:  $search = quotemeta($search);
$text =~ /$search/    # no "\Q" tis time!