Select Code to Download

foreach $word( @termList )
{
...
        # Record occurrence of term
    }
}

foreach $word ( keys $termHash )
{
    $document =~ s/$word/$termHash{ $word }/g;
}