#!/usr/bin/perl

use strict;
use warnings;
use Encode qw/from_to/;

my $DEBUG = 0;

while (<>) {
   print STDERR "Original: $_" if $DEBUG;
   from_to($_,"utf8","latin1");
   print;
}