#!/usr/bin/perl

use strict;

# <LI>(0) <STRONG><A NAME="00477" HREF="msg00477.html">Re: Cable question</A></STRONG>, <EM>Tesla List </EM></LI>

while (<>)
{
  s/(<A .*>).*(<\/A>)/$1$2/go;
  print;
}
