#!/usr/bin/env perl -l

use strict;
use warnings;
use utf8;
binmode(STDOUT => ':utf8');

use HTML::Entities;

my $unsafe_chars = "<&>'\"[]\200-\377";
my $string = "<[Here's my \"2¢\" worth]>";
print $string;
print encode_entities($string, $unsafe_chars);

##</code><code>##

$ pm_html_ent_plus_brackets.pl
<[Here's my "2¢" worth]>
&lt;&#91;Here&#39;s my &quot;2&cent;&quot; worth&#93;&gt;

##</code><code>##

use utf8;
binmode(STDOUT => ':utf8');