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