Select Code to Download

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

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