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


in reply to Pattern Matching Problem

my $text = 'Patron @FirstName@ @LastName@ has filled out the @FormName +@ form. Please send them an email at EmailAddress@.'; my $c=0; $text =~ s/\@([^\@]+)/$c++;($c%2)?"\@<b>$1<\/b>":"\@$1"/eg;