my $sjis = encode("cp932", $utf8->decode($str), Encode::FB_HTMLCREF);
if ($sjis =~ /&#\d{4,};/) {
my $sjis = encode("cp932", $utf8->decode($str), Encode::FB_HTMLCREF);
if ($sjis =~ /&#\d{4,};/) {
opendir(my $dir, $target) || return $target;
my @entries = sort grep { !m/^(\.|\.\.)$/g } readdir($dir);
closedir($dir);
my @dirs;
while (my $entry = shift @entries) {
opendir(my $dir, $target) || return $target;
my @entries = sort grep { !m/^(\.|\.\.)$/g } readdir($dir);
closedir($dir);
my @dirs;
while (my $entry = shift @entries) {