#!/usr/bin/perl

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

my $DEBUG = 0;

while (<>) {
   print STDERR "Original: $_" if $DEBUG;
   #from_to($_,"ANSI Latin1","utf8", Encode::FB_QUIET);
   # doppelte Rückcodierung erforderlich
   # siehe http://www.perl-community.de/bat/poard/thread/19290
   from_to($_,"Windows-1252","utf8", Encode::FB_QUIET);
   from_to($_,"utf8", "UTF-8", Encode::FB_QUIET);
   print;
}