#!/usr/bin/perl
use strict;
use warnings;
binmode(STDIN,  ':encoding(UTF-8)');
binmode(STDOUT, ':encoding(iso-latin-1)');
print while <>;