in reply to Conditional replace

Another way:$FileText =~ s/($Search|$)/$1 eq $Search ? $Replace : $AddText/e;

§ George Sherston

In Section Seekers of Perl Wisdom