use Encode qw( encode );

binmode(DATA, ':encoding(UTF-8)');

while (<DATA>) {
    print encode('iso-8859-1', $_, Encode::FB_HTMLCREF)
}
[download]