$_='snidge'x20;s/(??{$o.="."})\K/
/g;print