#!/usr/bin/perl;

use HTML::Entities;

$to_decode = "&an HTML string - <© TVS>";
$decoded = decode_entities($to_decode);

print "original data --> $to_decode\n";
print "decoded data --> $decoded\n";