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