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