こんな感じのモジュールないかなぁ

my $itr = Foo::Bar::Baz->new(directory => '.', regexp => qr/^hoge/);

while ($elem = $itr->next) {
    # ほげほげする
}

こんな感じで、ディレクトリから正規表現にマッチするファイル名だけを返すイテレータオブジェクトを返すようなの。サブディレクトリまで再帰的に探索はできてもできなくてもいいんだけど。ないならないなりにあるものから適当に作ってもいいんだけど、そのときはしっくりするモジュール名が思いつかないなぁ。まあ、それはどうでもいいけど。

追記

id:charsbarさんが教えてくれたFile::Find::Iteratorで解決できそうです。感謝♪