sub find_process {
   no warnings 'substr';

   ...
   my $part = substr($file, $x, ...);
   if (not length $part) {
      warn("Skipping file $file\n");
      return;
   }
   ...
}