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