Help for this page

Select Code to Download


  1. or download this
    my @m_h = map {(my $c = $_) =~ s/$this/$that/ig; $c } grep {/^t/i} @foo;
  2. or download this
    my @m_h = grep {/^t/i} map {(my $c = $_) =~ s/$this/$that/ig; $c } @foo;