(my $bloop = $bad) =~ s/(?<=\w{2})\w/\*/sg;