return if $fileName !~ /[\w]+\.(?:cgi|p[lm])$/;

##</code><code>##

return unless /^\w+\.(?:cgi|p[lm])$/;