my @results = File::Find::Rule->file()
                              ->exec( sub { length($_[1]) < 255 } )
                              ->in( $dir );