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