14. if (
15.   ($file =~ /[^a-zA-Z0-9_\-\.]/) or
16.   ($file =~ /\.\./) or ($file eq '.') or
17.   !(grep { $file =~ /\.$_\z/i } @ext)
18.   !(-e $file) or
19.   !(open $fh, '<', $file) or
20. ) {