Encode.pm sample

gistfile1.pl

#!/usr/bin/perl
#
use strict;
use Encode qw(decode encode from_to); 
use Data::Dumper;

open IN, 'euc.txt';
while(<IN>){
    my $euc    = $_;
    my $string = decode('euc-jp', $euc);
    my $utf8   = encode('utf-8', $string); 
    print $euc;
    print $string;
    print $utf8;
    print Dumper($euc);
    print Dumper($string);
    print Dumper($utf8);
    from_to($_, 'euc-jp', 'utf-8');
    print;
}