#!/usr/bin/perl --
use strict;
use warnings;
use HTML::Entities ;
my $string = '[< smarto  >]';
my $unsafe_chars = '[]';
my $encoded = encode_entities( $string, $unsafe_chars );
print "$string\n$encoded\n";
__END__
[< smarto  >]
&#91;< smarto  >&#93;