my $i= 0;
$str =~ s/(...)/ 3 == ++$i ? 'fish' : $1 /ge;