Select Code to Download

my ($pat) =
    map qr/$_/,
...
    keys %value_lkup;

my @data = map $value_lkup{$_}, /$pat/g;