How about this?

use HTML::Entities;
use Encode;

my $s1 = 'El supersónico de los Indi';
print "Start string: $s1\n";

my $s2 = encode_entities(decode('utf8', $s1));
print "End string: $s2\n";
[download]