- or download this
#!/usr/bin/env perl -l
...
my $string = "<[Here's my \"2¢\" worth]>";
print $string;
print encode_entities($string, $unsafe_chars);
- or download this
$ pm_html_ent_plus_brackets.pl
<[Here's my "2¢" worth]>
<[Here's my "2¢" worth]>
- or download this
use utf8;
binmode(STDOUT => ':utf8');