my $itr = Foo::Bar::Baz->new(directory => '.', regexp => qr/^hoge/); while ($elem = $itr->next) { # ほげほげする } こんな感じで、ディレクトリから正規表現にマッチするファイル名だけを返すイテレータオブジェクトを返すようなの。サブディレクトリ…