my (@cmd_line) = ($0, @ARGV);
my($modifiers) = "(not?|m?any|all|much|little)";
my($word_ends) = "(ed|ing|sion|tion|ould|ate|ize)";
my($words) = "(are|on|from|with|we)";
# Remove HTML-markup (needs more work to handle HTML ATTRIBUTES).
- # Match a wor
k in Heading somewhat meaningful as a hyper-link.
+ # Match a wor in Heading somewhat meaningful as a .
- # Build unique link-target by using first letter of each word in HEADING.
- $name =~ s/(\w)\w*/$1/g;
+ # Build unique link-target by appending the index-number to the link-label.
+ $name = $data . $index_number++;
# Incorporate the link-target into the current line, which is a HEADING.
# Create an index-line, containing a hyper-link to this HEADING.