Show subexp.pl syntax highlighted
#!/usr/bin/perl
$as = 'a sam <asam@gmail.com>, a, b <b@b.b>, b';
$as2 = 'a, sam <sam@gmail.com>, b';
$as3 = 'b, sam <sam@gmail.com>';
# Can anchors (^ and $) be in subexpressions?
$as =~ s/(^|,\s*)(a|b)(\s*,|$)/$1X$3/g;
$as2 =~ s/(^|,\s*)(a|b)(\s*,|$)/$1X$3/g;
$as3 =~ s/(^|,\s*)(a|b)(\s*,|$)/$1X$3/g;
print $as. "\n";
print $as2. "\n";
print $as3. "\n";
# Yep!
See more files for this project here