#!/usr/bin/perl
use warnings;
use strict;

use Encode;
use HTML::Entities;

my $txt = q{“£”}; # from a windows text file
my $utf8 = decode(q{cp1250}, $txt);
print encode_entities($utf8);

# “Ł” (an L with a stroke)