$i++%2?$s+=print$",$/,map$"x$s.$_.$/,split//:print$"x$s,grep++$s,split//for<>=~/\S+/g