in reply to Replacing a specfied instance of a pattern in a string
ormy $i= 0; $str =~ s/(...)/ 3 == ++$i ? 'fish' : $1 /ge;
my $i = 3; 0 while $str =~ /fsih/gi && --$i; substr( $str, $-[0], $+[0]-$-[0], 'fish' ) if ! $i;
- tye
|
---|
In Section
Seekers of Perl Wisdom