Jim, How about something along these lines:

#!/usr/local/bin/perl -w
 
use strict;
use File::Find;
find(\&wanted, '.' );

sub wanted {
        print $File::Find::name, "\n" if( /08.*ama.gz/ );
}
[download]

-derby