Select Code to Download

perl -MHTML::Entities -e "print qq/$_\t/, encode_entities( $_, $_ ), 
$/ for split //, shift" "[]<>"
...
]       &#93;
<       &lt;
>       &gt;