foreach my $key (%HASH) {
    $html =~ s/<!--$key-->/$HASH{$key}/gis;
}#foreach
print $html;