すみません。文字コードの文字列をもとに戻すにはどうしたらいいのでしょうか？
ソースは utf8 で、cp932の文字コードが入っています。

my @mojilist = unpack('H*', encode('cp932','もじもじ'))
print @mojilist;
print pack('H*',@mojilist)

2行目で "82e082b682e082b6" となってるのですが、
3行目（実際は22行目です)の結果が

"\x{0082}" does not map to cp932 at moji.pl line 22.
:(省略)
"\x{00a0}" does not map to cp932 at moji.pl line 22.
\x{0082}a\x{0082}¶\x{0082}a\x{0082}¶\x{00a0}

のようになります。