@ARGV= map glob, @list;

##</code><code>##

@ARGV= map { my @g= glob; @g ? @g : $_ } @list;

##</code><code>##

@mispel= glob( "g{u,a,au,ua}r{r,}{a,u,e}nt{i,e,}{e,y}" );

##</code><code>##

print "File(s): ";
chomp(  my $fileSpec= <STDIN>  or  exit(0)  );
my @files= glob($fileSpec)
# vvv
    or  warn "No files matching $fileSpec found.\n";
# ^^^ This line not needed with current glob().
foreach my $file (  @files  ) {
    if(  ! open( FILE, "<$file" )  ) {
        warn "Can't read file, $file: $!\n";
        next;
    }
    #...

##</code><code>##

print "File(s): ";
my $fileSpec= <STDIN>  or  exit(0);
my @files= map {
    glob($fileSpec)
      or  (warn "No files matching $fileSpec found.\n")[()];
} split ' ', $fileSpec;
foreach my $file (  @files  ) {
    #...

##</code><code>##

grep -e, glob