my $s = '1gaga2gaga3gaga4gaga5gaga6gaga7gaga8gaga';
my $p = 'gaga';

my $count = 0;
$s =~ s/(\Q$p\E)/++$count>=3?'':$1/ge;