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

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