Select Code to Download

my $inv = qr/two|three/;

my $inv = do{ local $" = q{|}; qr{@{[ map quotemeta, @keep ]}} };

my ($inv) = map qr/$_/, join '|', map quotemeta, @keep;