#!/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); from_to($_,"ansi","utf8", Encode::FB_QUIET); print; }