my $re1 = qr/foo/;
my $re2 = qr/bar/;
my $re3 = qr/$re1|$re2/;