local @n;
/(.)(?{ ++$n[0] })^/;
@d = @n;