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

local $/ = undef;
my $file = <>;
while ($file =~ /<A.HREF="(.)\.html#(.)([-a-z]*)(?<!-).*?">(.*?)<\/A>/gs)
{
	if ($1 ne $2 || "$2$3" ne lc $4)
	{
		my $name = $4;
		$name =~ y/\n/ /;
		print "$name\n";
	}
}
 
