use strict; use utf8; use Unicode::Japanese; my $ujObj = Unicode::Japanese->new(); print $ujObj->set(' [email protected]#アイウガダパ')->h2z->get,"\n";