our @a = split(//, $buf);