use strict;
use warnings;

my $name = 'user_supplied.txt';
my @errs = grep {$_ !~ /\.log$/ and $_ ne $name} glob(".* *");
print do{local $" = "\n"; "@errs\n"};