my $re4 = qq/foo/;
my $re5 = qq/bar/;
my $re6 = qr/$re4|$re5/;