print join(':', grep /\S/, split /(\w\W?)/,$x); #->E/:s:t:Y:n:a~:k:o