Help for this page

Select Code to Download


  1. or download this
    while ($num =~ m/<member-id>(\d+)/g){ push (@val,  $1);}
 print "@val\n";