my @list = grep( -M < 1 } glob "$dir/b*.txt $dir/B*.txt";