use File::Finder; # in the CPAN
my @long_names = File::Finder->eval(sub { length > 250 })->in('/');
my @long_paths = File::Finder->eval(sub { length $File::Find::name > 250})->in('/');