my %seen;
s/(amazing\S+)/ $seen{$1}++ ? ...new... : $1 /eg;