#!/usr/bin/perl;
use HTML::Entities;
$to_decode = "TEST&TEST;A&E&an HTML--- string - <© TVS>";
$encoded = encode_entities($to_decode);
print "Encoded data --> $encoded\n\n\n";