note
GrandFather
<p>or to pass the index in use:</p>
<c>
use warnings;
use strict;
my $foo = 'Fsih my test variable is fsihd or is it gfsih or gfsihd fsih';
my $i = 2; # Replace the 3rd
$foo =~ s/((?:fsih.*?){$i})fsih/$1fish/i or warn "Not found";
print "Foo = $foo\n";
</c>
<div class="pmsig"><div class="pmsig-461912">
<hr>Perl is Huffman encoded by design.
</div></div>
475052
475060