unless($file =~ /\.(pod|pm|plx?)\z/i || (-f $file && -x _ && -T _))