for my $file (read_dir( $dir, prefix => 1 )) {
    substr $file, 0, 0, "$dir/";
    next if (! -f $file || -s $file < $min_size) ;
    ...