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