sub translate
{
	my ($n, $m, $_) = @_;
	$n--;
	s/(\w)\1{$n}/$1 x $m/ge;
	$_;
}

print translate(4,1,'p8888er9999l');   # -> p8er9l
print translate(1,3,'monks');          # -> mmmooonnnkkksss