in reply to Re: A better regex
in thread A better regex

also works: 
my @files = glob( '{A,B}FILE_*zip' );

or

my @files = <{A,B}FILE_*zip>;

[download]

Tiago

In Section Seekers of Perl Wisdom