Select Code to Download

my $regex = '_9(?:' . join('|', map { quotemeta } @$sites) . ')';
$text =~ /$regex/;