Path::Classを使って、ディレクトリ以下のHTMLファイル読み込み。

はじめてのPath::Class
slurpがあるとはー。

my $dir = dir($dir_path);
my @file_paths;
$dir->recurse(
callback => sub {
my $entry = shift;
return if $entry->is_dir;
return if $entry !~ /\.html\z/;
push @file_paths, $entry->absolute;
}
);

for my $path (@$paths) {
my $html_data = Encode::decode('utf-8', $path->slurp);
}