my @names;
while( $string=~s/\?<([a-z]+)>// ){push(@names,$1);}

print "Names: ",join(',',@names),"\n";