($a=join"|",a..z)=~s/join"|",@{pop@_}//eg;($g=shift)=~s!_![$a]!g;/^$g$/&&push@m,$_ for@{pop@_};@m