If u wish you can try this code
$sequence=' 1 sen 192 gube 433 siva raj 280 shank prasad 600 san zia 753'; $START1 = 1; $STOP1 = 280; $START2 = 192; $STOP2 = 433; $START3 = 600; $STOP3 = 753; for $k(1..3) { $s='START'."$k"; $en='STOP'."$k"; print "******start****"; (@arr)=$sequence=~m#$$s(.*?)$$en#gsi; $ar = join(" ", @arr); $ar=~s/\d//gi; $ar=~s/\n+/\n/gi; print "$ar"; print "******end***\n"; }
In reply to Re: extracting substrings
by perlsen
in thread extracting substrings
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |