note
ikegami
<p>Close.
<c>
my $expr =
join '|',
map { keys( %{ $replaces{$_} } ) }
keys( %replaces );
</c>
<p>With foreach:
<c>
my @keys;
for ( keys( %replaces ) ) {
push @keys, keys( %{ $replaces{$_} } );
}
my $expr = join '|', @keys;
</c>
11140005
11140005