Abstraction,
To expound on what you have said:
#!/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( / );
It appeared at first in the docs that all you could do was file globs, but later on I saw a regex, so I think this will work.
Cheers - L~R
Update: Bah, broquaint beat me to it, so yes it will work. What's worse - his solution provides the ability to modify the template without modifying the regex. I guess the only thing I would have done differently is changed the character class to [a-zA-Z] instead of using /i for speed reasons - but if it runs a tad bit slower it just means you can go get more caffeine.