/(.)(\1|.\1.|\1.\1*.\1)\1/&&print$_.$/for map{glob'{1,2}'x$_}3..8