Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    my $expr = join '|', map {keys %$_} values %replaces;
    
    print $expr;