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