Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
<b>a,b</b>
<b>a,b
</b>
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
<b>a,b</b>
<b>a,b
</b>
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
<b>a,b</b>
<b>a,b
</b>
  4. or download this
    $var =~ s!<a>(.*?),(.*?)</a>!<a>$1A$2</a>!gs;
  5. or download this
    __DATA__
This is to test.
...
<a>ab</a>
<c>a,b</c>
<a>a,b</a>