I thought the _ underscore character in code was a cached alias for the last file test, i.e.

if (-f $file) {
   if (-s _ ) {
       ...
   }
   ...
}
[download]