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