use strict;
use warnings;

use Encode qw( from_to );

my $src_enc = 'UTF-8';
my $dst_enc = '...';

while (<>) {
   from_to($_, $src_enc, $dst_enc);
   print;
}