基础知识介绍：

子表达式匹配

环视

引号内的字符串："（^"）*"

12小时制：(1[0123]|[1-9]):[0-5][0-9]*(am|pm)

24小时制：(([01]?[0-9])|(2[0-3])):[0-5][0-9]*

浮点数，保留小数点两位，如果第三位不为零，保留第三位：~s/(\.\d\d[1-9]?)\d*/$1/

纯数字，三位添加一个逗号：~s/(?<=\d)(?=(\d\d\d)+$)/,/g

文本中插入的数字，，三位添加一个逗号：~s/(?<=\d)(?=(\d\d\d)+(?!\d))/,/g  或  ~s/(\d)(?=(\d\d\d)+(?!\d))/$1,/g  或

~s/(\d)((\d\d\d)+(\b))/$1,$2/g (此正则需在while循环内)