in reply to Perl Regexp help w/ grep

For that, I'd say go with a file glob rather than explicit opendir/readdir/grep. 
my @local_files = glob('STR1*_STR2_*');

[download]
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom