$text =~ s{ (<!--\s*$\s*( .*? )\s*$\s*-->) }
           { exists( $var->{$2} ) ?
                     $var->{$2}.$1 :
                     "";
           }gsex;