$_ = ' ---------- ------------------------- -------- ---- ------ +------------------- ----- ---- ----------- -----------'; my $i; print $i += length $_, $/ for split /(?<=-)(?=\s+|$)/; __END__ __OUTPUT__ 13 40 50 56 83 90 96 109 122
In reply to Re: text parsing question
by Dietz
in thread text parsing question
by kfarr2
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |