$i = 0; @no = qw(one two three four five); foreach ( @no ){ my $str = ''; while( s/([^e]*)e// ){ $str .= $1 . "fee" . $i++; } $_ = $str . $_; #UPDATED: Append addresses Re: to this node } print "@no\n";
--
perl -pe "s/\b;([st])/'\1/mg"
In reply to Re: Re: Re: Increase number per regex replacement
by belg4mit
in thread Increase number per regex replacement
by bittondb
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |