#!/usr/bin/perl -w
use strict;

for (@ARGV) {
    my($file) = $_;
    open(IN, $file) || die("Failed opening $file: $!\n");
    my($string) = join("", <IN>);
    close IN;
    $string =~ s/\r\n/\n/g;

    # kill the "text" link
    $string =~ s|<A HREF="tsld\d+.htm">Text</A>&nbsp;&nbsp;||;
    open(OUT, "> $file") || die("Failed opening $file for output: $!\n");
    print OUT $string;
    close OUT;

    # get and format the title
    $string =~ m|<TITLE>(.*?)</TITLE>|i;
    print qq|<a href="$file">$1</a><br>\n|;
}