Help for this page

Select Code to Download


  1. or download this
    my @m_h = grep {local($_);s/tw/tr/g; /^t.*/ig;$_} @foo;
  2. or download this
    my @m_h = map {s/tw/tr/g;$_} @foo;
  3. or download this
    my @m_h = @foo;
s/tw/tr/g for @m_h;
  4. or download this
    my @m_h = grep /^t/i, @foo;
s/tw/tr/g for @m_h;