my @files = File::Find::Rule->name(qr/UFLEX.*stdf$/)
                               ->file()
                               ->in(cwd());
 
foreach my $file (@files) {

print "$file\n";