perl
use strict; use warnings; use utf8; use encoding 'UTF-8'; use open ':utf8'; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; 中略 open my $FH, "
use strict; use warnings; use utf8; use encoding 'UTF-8'; use open ':utf8'; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; 中略 open my $FH, "