$instream =~ s/<\/H[1-6]>\s*/\}\n/ig;