#!/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";