Help for this page
$str =~ s/$query\W+/<em>$query<\/em> \W+/ig; ^^^
$str =~ s/$query(\W+)/<em>$query<\/em>$1/ig;