perl -le "print for split /(?=[^~\/](?:.|$))/,shift" "E/sYna~ko/"

##</code><code>##

perl -le "print for split /(?=[^~\/])/,shift" "E/sYna~ko/"