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

##</code><code>##

$str =~ s/(?<!\w)\Q$query\E(?!\w)/<em>$query<\/em>/ig;