$x = 'E/stYna~ko';
print join (' ', split /(\w[^\/~])/, $x); #->E/ st  Yn a~ ko /
print join (' ', split /(\w(?!\/~))/, $x); #-> E / s  t  Y  n  a ~ k  o
print join (' ', split /([^\/~])/, $x); #-> E / s  t  Y  n  a ~ k  o
print join (' ', split /(?!\/~)/, $x); #->E / s t Y n a ~ k o