Almost what I was looking for. I just have to grep out the empty fields:

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

And yes, using blanks as delimiters in the print was a bad idea -> changed to colons.

Thanks, pike