data test;
some_data='zhangsan张三123456789,lisi李四?wangwu王五123456';
run;
data test1;
set test;
length together found $100.;
retain together;
stop = length(some_data);
if _n_=1 then do;
pattern="/[[:^ascii:]]+/";
pattern_ID=prxparse(pattern);
start = 1;
together='';
end;
call prxnext(pattern_ID, start, stop, some_data, position, length);
do while (position > 0);
found = substr(some_data, position, length);
together=catx('',together,found);
CALL PRXNEXT(pattern_ID, start, stop, some_data, position, length);
end;
run;