You might like to use File::Find::Rule:

 my @files = File::Find::Rule->file()
                             ->name( qr/your regexp here/ )
                             ->in( $dir );
[download]

Hope this helps!