Select Code to Download

use HTML::Entities;
$VAR='£¥Ü¢£áóúñÑ£';
...
$VAR=encode_entities($VAR);

print $VAR;