Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
use warnings;
...
while ($string =~ m/<name=\"(.*?)\">(.*?)<\/name>/g)    { 
    print "$1, $2\n"; 
}

Select or download this

ww@GIG:~/pl_test$ perl 829607.pl
foo, <anystring 1 />
bar, <anystring 2 />
ww@GIG:~/pl_test$