my $foo = 'Fsih my test variable is fsihd or is it gfsih or gfsihd fsih';
# Replace the 3rd
$foo =~ s/((?:fsih.*?){2})fsih/$1fish/i or warn "Not found";
print "Foo = $foo\n";