say join ', ', map ord, split //, $p;