http://www.perlmonks.org?node_id=994561


in reply to How to ignore lines that match certain string after it is matched for the first time within a same file

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

[download]
  • Comment on Re: How to ignore lines that match certain string after it is matched for the first time within a same file
  • Download Code

In Section Seekers of Perl Wisdom