for my $filename (glob "$folder/*_0828900840_*D602BG") {