$str =~ s/$query\W+/<em>$query<\/em> \W+/ig;
                                     ^^^

##</code><code>##

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