push @files , grep { -f && (-s >= $min_size) && (-s <= $max_size) } map { "$d/$_" } read_dir ($d);