Correct me if I'm missing something, but shouldn't there be a ";" at the end of the HTML entity? Also, as a general style issue, instead of print + sprintf I would just use a single printf:

printf '&#%03d;', translate{ $_ } for split '', $email;
[download]