Re^2: Check for string in array and substitue

#!/usr/bin/perl;
use HTML::Entities;
...
$encoded = encode_entities($to_decode);
print "Encoded data --> $encoded\n\n\n";

Select or download this
Encoded data --> TEST&TEST;A&E&an &nbsp; HTML--- &nbsp; string - &lt; &copy; TVS&gt;

TEST&amp;TEST;A&amp;E&amp;an &nbsp; HTML--- &nbsp; string - &lt; &copy
+; TVS&gt;

Select Code to Download