$str =~ s/\Q$query\E/<em>$query<\/em>/ig;

##</code><code>##

$str =~ s/($query)/<em>$1<\/em>/ig;