use File::Find::Rule qw/rule/;
my @files = rule->file->name(qr/_0828900840_.*D602BG/)
    ->maxdepth(1)->in(@folders);