$x = 'E/stYna~ko';
@j=split (/(\w\W*)/, $x);
foreach $j(@j){
$i++;
   print "$i - $j\n";
}
print "\n";