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