#!/usr/bin/perl

while(<>)	{
	if	(/.*<DL>/)	{
		print;
	}elsif	(/.*<\/DL>/)	{
		print;
	}elsif	(/.*<DT><A NAME="(.+)">#(.+)<\/A>/)	{
		s/(.*)<DT><A NAME="(.+)">#(.+)<\/A>/$1<DT><A HREF="link\/link.html#$2">l# <\/A>. $3/;
		print;
	}
}
