Select Code to Download

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

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

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

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