Select Code to Download

{
   no warnings 'substr';
   ... use substr here ...
}

my $substr;
if (length($_) >= 4) {
...
} else {
   $substr = '';
}

sub find_process {
   ...
...
   ... substr($file, $x, ...) ...
   ...
}

sub find_process {
   no warnings 'substr';
...
   }
   ...
}