#!/usr/bin/perl
require "htmlent.pl";

while(<>){
    s/&(\w+);/$htmlent{$1}/g;
    print;
}