my $inv = qr/two|three/;

##</code><code>##

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

##</code><code>##

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