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