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