I recently "discovered" File::Next for myself, seems to be good for your task too, especially with the option "file_filter" to which you can provide your pattern.
Just my 1 cent.