Select Code to Download

my $pattern = join '|',
              map quotemeta,
...
if ($country =~ /^(?:$pattern)$/) {
   print "True\n"
}

my ($pattern) = map qr/^(?:$_)$/,
                join '|',
...
if ($country =~ $pattern) {
   print "True\n"
}