#!/usr/bin/perl -w
use strict;
use File::Find::Rule;

my @files = File::Find::Rule->file()
                            ->name( qr/^[a-zA-Z]{4}-\d{8}/ )
                            ->in( / );