@m_h = map { local $_ = $_; s/tw/tr/g; $_ } grep {/^t/i} @foo;