Have you looked at HTML::Entities, which has

$encoded = encode_entities($input, '^\n\x20-\x25\x27-\x7e');
[download]

... which should be more or less what your table does.

If you have other characters that should not be encoded, you can add them to the above range.

Update: See also HTML::HTML5::Entities, which even allows you to bring your own entity tables.