Select Code to Download

$str =~ s/$query\W+/<em>$query<\/em> \W+/ig;
                                     ^^^

$str =~ s/$query(\W+)/<em>$query<\/em>$1/ig;