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