Select Code to Download

my $regex = qr{(??{ join '|', map {quotemeta} qw/. | %/ })};

use Test::More;

...
like 'GHI', $re;

done_testing;