Help for this page

Select Code to Download

Select or download this

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