my $words = join "|" => @wordlist;
$newline =~ s/\b((?:$words)(?:ed|ing|al))\b/\\footnote{$1 $hash{lc($1)}{explanation}}/i;   # No /m needed.