$perm = 400 if $file =~ /catalina\.properties|\.key$|tomcat-users\.xml/;


##</code><code>##

$perm = 400 if grep { $file =~ $_ }, qr/catalina.properties/, qr/\.key$/, qr/tomcat-users.xml/;