my $spec = ‘*_{process,read}_*’;

##</code><code>##

my @use;
for my $file ( glob $spec )  {
    $file = m/$reg/;
    push @use, $file unless $1 =~ /\+/;
}

##</code><code>##

my @use=grep !/[^+]*?_(?:process|read)_/, glob $spec;

##</code><code>##

perldoc -q 'difference between "perl" and "Perl"'