check-characters.pl

   1 #! /usr/bin/perl -w
   2 use diagnostics;
   3 use strict;
   4
   5 local $/ = undef;
   6 my $file = <>;
   7 while ($file =~ /<A.HREF="(.)\.html#(.)([-a-z]*)(?<!-).*?">(.*?)<\/A>/gs)
   8 {
   9         if ($1 ne $2 || "$2$3" ne lc $4)
  10         {
  11                 my $name = $4;
  12                 $name =~ y/\n/ /;
  13                 print "$name\n";
  14         }
  15 }
  16