if (-f $_ and /\.p(?:m|od)$/) {