我要如何用正则表达式能够精确匹配手机号，得到类似AABBCC  AAAAA的手机号码？
data _null_;
if _n_=1 then pattern_num=prxparse('/\d{3}/');
retain pattern_num;
input phone_num $11.;
position=prxmatch(pattern_num,phone_num);
file print;
put pattern_num= phone_num= position=;
cards;
13900000000
12349999044
16038489555
12904830935
24902380394
40938609348
19295559440
13919199191
19339119393
29395844859
;
run;