This looks a little neater IMHO

package Regexp;

use strict;
use vars qw($file_re);

my $underscore = qr/_/;
my $non_dot    = qr/[^.]/;
my $dot        = qr/[.]/;

$file_re = qr<
  # this is now case insensitive and non-capturing
  (?i-xsm:
    ( nonconsolidated | other ) $underscore
  )?
  ( faq | organization | literature | contact | service )
  $underscore ($non_dot+) ${dot}xls
>x;

q</package Regexp>;
[download]

But then again I do have a thing for indented regexp :)
HTH

_________
broquaint