#!/usr/bin/perl

    use strict;
    use warnings;

while (1) {

    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 @_; }
    p "<table>\n";
    my $last_who = '';
    my $para = 0;
    my $subpara = 0;
    open FIN, "<20070910_DianeRehm_JohnDean.txt" or die;
    while (<FIN>) {
        s/\s+$//si;
        if (!/\S/) {
            p "\n";
        }
        next unless /\S/;

        my $orig = $_;
        if (s/^T //si) {
            p "<tr><td class='nameCol'>(<i>mp3&nbsp;mark&nbsp;$_</i>)</td><td>\n";
            next;
        } elsif (s/^(D |Diane: |J |John: |\S*: )//si) {
            my $whofull = $1;
            my $who = substr($1, 0, 1);
            if ($last_who ne $who) {
                if ($who eq 'D') {
                    $para++;
                    $subpara = 0;
                    p "<tr id='para$para'><td class='nameCol'><b>Diane:</b></td><td class='commentsCol'>";
                } elsif ($who eq 'J') {
                    $para++;
                    $subpara = 0;
                    p "<tr id='para$para'><td class='nameCol'><b>John:</b></td><td class='commentsCol'>";
                } elsif ($whofull =~ s/:\s*$/:/) {
                    $para++;
                    $subpara = 0;
                    p "<tr id='para$para'><td class='nameCol'><b>$whofull</b></td><td class='commentsCol'>";
                } else {
                    warn "Uknown speaker '$who'\n\t$orig\n\t";
                    last;
                }
            } else {
                #p "<tr><td><td>";
                $subpara++;
                my $sp = chr(ord('a') + $subpara - 1);
                p "<br><br id='para$para$sp'>";
            }
            $last_who = $who;
        } else {
            warn "Uknown speaker\n\t$orig\n\t";
            last;
        }

        s/ -- / &mdash; /gs;
        s#\*(.*?)\*#<i>$1</i>#gs;    # italics

        p $_;

        p "\n";
    }

    close FIN;
    close FOUT;

    last unless (grep /repeat/i, @ARGV);
    sleep 2;
    system "clear";
}