#!/usr/bin/perl

    use strict;
    use warnings;

open FIN, "<20070910_DianeRehm_JohnDean.html" or die;
my $html = do {local $/=undef; <FIN>};
close FIN;
#print $html; exit;

$html =~ s#<!-- INSERT AFETR THIS -->.*#<!-- INSERT AFETR THIS -->\n#si;
#print $html; exit;

open FOUT, ">20070910_DianeRehm_JohnDean.html" or die;
print FOUT $html;

    sub p { print @_; print FOUT @_; }
open FIN, "<20070910_DianeRehm_JohnDean.txt" or die;
while (<FIN>) {
    if (s/^(D |Diane: |J |John: )//) {
        my $who = substr($_, 0, 1);
        if ($who eq 'D') {
            p "<p><b>Diane:</b> ";
        } elsif ($who eq 'J') {
            p "<p><b>Diane:</b> ";
        } else {
            die "Uknown speaker\n\t";
        }
    } else {
        die "Uknown speaker\n\t";
    }
}