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;
|
---|
In Section
Seekers of Perl Wisdom