open( INPUT, "<:encoding(cp1252)", $filename ) or die $!;

# or, if the file handle is already open (e.g. STDIN):
#  binmode FILEHANDLE, ":encoding(cp1252)";

while (<INPUT>) {
    # $_ contains utf8 data...
}