$x = 'E/stYna~ko'; @j=split (/(\w\W*)/, $x); foreach $j(@j){ $i++; print "$i - $j\n"; } print "\n";
(I added the extra code for clarity of output. It was hard to see where the exrta blanks were otherwise.)
In reply to Re: split this
by Elliott
in thread split this
by pike
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |