my (@a) = (qr/^foo\.c$/,
           qr/^bar\.c$/,
          );
/$a[0]|$a[1]/;
#or
my $re = join("|", @a);
/$re/;