my @m_h = grep {local($_);s/tw/tr/g; /^t.*/ig;$_} @foo;