join _=>split/[.]/=>$_,y[.]__;