perl -MHTML::Entities -e "print qq/$_\t/, encode_entities( $_, $_ ), 
$/ for split //, shift" "[]<>"

__OUTPUT__
[       &#91;
]       &#93;
<       &lt;
>       &gt;