if ($item =~ /_0828900840_.*D602BG/)

##</code><code>##

my @contents = <$folder/*_0828900840_*D602BG>;

##</code><code>##

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