Select Code to Download

my $expr =
   join '|',
      map { keys( %{ $replaces{$_} } ) }
         keys( %replaces );

my @keys;
for ( keys( %replaces ) ) {
...
}

my $expr = join '|', @keys;