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