Close.

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

With foreach:

my @keys;
for ( keys( %replaces ) ) {
   push @keys, keys( %{ $replaces{$_} } );
}

my $expr = join '|', @keys;
[download]