#!./perl

$prog = "prog.shtml";

open(PROG,$prog) || die "Could not open $prog\n";
while(<PROG>) {
    if ( ! /orange/ ) {
	if (/^\<tr\>\<td\>.*\<\/td\>\<td\>\s*(\S+)\s+(\S+)\s*\<\/td\>/) {
	    $x = $2;
	    $x =~ tr/A-Z/a-z/;
	    $link = "<a href=\"abstracts.htm#$x\">$1 $2</a>";
	    s/(^\<tr\>\<td\>.*\<\/td\>\<td\>\s*)(\S+\s+\S+)(\s*\<\/td\>.*)$/$1$link$3/;
	}
    }
    print;
}

