use MP3::Tag ;
use Encode ;
my $mp3 = MP3::Tag->new('02 EXTRA LOVE.mp3') or die ;
$mp3->get_tags() or die ;
if (exists $mp3->{ID3v2}) {
my $id3v2 = $mp3->{ID3v2} ;
my $artist = $id3v2->get_frame('TPE1') ;
$artist = decode('UTF-16LE', $artist) ; #1
$artist = encode('Shift_JIS', $artist) ; #2
print "$artist\n" ;
}
$mp3->close() ;

#1と#2の行を記述しないと、正しく出力されません。

Wide character in print at G:\id3v2.pl line 10.
蝮ゆｸ翫↑縺｡

#1と#2を入れると、printもされなくなります。

Wide character in subroutine entry at D:/Program Files/Perl/site/lib/Encode.pm line 175.

#1だけを消したときだけ、正しく出力されます。

坂上なち

文字コードのデコード、エンコードのテストをしてみて出来たのですが、
MP3のタグだと上記のように意味がわからなくなります。