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