Perl5的な文字コード変換

use strict;
use warnings;
use utf8;
use Encode;

my $str = "あういえお";

# utf8フラグ付きのutf8文字列を他文字コードへ非破壊的に変換する。
my $enc = Encode::find_encoding('Shift_JIS');
my $converted = $enc->encode($str);

# 文字コードＡから文字コードＢへの破壊的変換。
my $str2 = $converted;
Encode::from_to($str2, 'shiftjis', 'euc-jp');

# 文字コードＡから文字コードＢへの非破壊的変換。
my $str3 = Encode::encode('shiftjis', Encode::decode('euc-jp', $str2));

最後のはそう出来るって情報を見掛けただけでまだ試してない。