うん、気持ち悪いですね。 ソース use strict; use warnings; use utf8; use feature qw( say ); use Encode; sub ほげ { my $ふが = 'ふが'; say encode_utf8 $ふが; } ほげ(); 出力 ふが