Select Code to Download

my $rx_search =
    join ' | ',
...
    keys %replace
    ;
$rx_search = qr{ ... $rx_search ... }xms;