$perm=400 if grep {/$file/}, qw(catalina.properties \.key$ tomcat-users.xml);