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

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

Thanks, that was exactly what I was looking for. (BTW I had to remove the comma after the curly bracket).

What does qr do?

equick:

You can answer questions like this by referring to the documentation, e.g., perldoc perlop. You may want to review perldoc perldoc to see how to use perldoc, and review perldoc perl to find an overview of the basic documentation. There's also a rumor of a site on the internet called Google that can help you locate answers to simple questions like these.

...roboticus

When your only tool is a hammer, all problems look like your thumb.

Also:

>perl -wMstrict -le
"my ($patterns) =
   map qr{$_}xms,
   join ' | ',
   qw(catalina\.properties \.key$ tomcat-users\.xml)
   ;
 ;;
 print $patterns;
 ;;
 my $string = 'foo.key';
 print 'match' if $string =~ $patterns;
"
(?msx-i:catalina\.properties | \.key$ | tomcat-users\.xml)
match
[download]

Update: A small subtlety: The use of the /m regex modifier in the  qr{$_}xms regex in the example above causes the  $ assertion (see Metacharacters) to match before any embedded newline in the string or before the absolute end of the string. If a match only at the absolute end of string is desired, use  \z instead (see Assertions).