Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my @files = File::Find::Rule->file()
                            ->name( qr/^[a-zA-Z]{4}-\d{8}/ )
                            ->in( / );