use Encode;
Encode::from_to($mojiretu, 'utf8', 'iso-2022-jp');