以下。 bless $argv => __PACKAGE__; binmode $fh => ':utf8'; my @grep = grep /abc/ => @poems; my $index = index $str => $search; my $join = join ' & ' => @words; push @array => $pushed; my ($first, $second, $third) = unpack('AAA' => 'MIX'); …