希望tperlregex比较熟的高手，看日期这个正则式怎么弄？

Question

我希望用这个正则式控件 ，将 输入的任意格式的日期字符转成标准的格式：
输入的：
2010.01.01     2010.1.1   2010-1-1   2010-01-01   2010 1  1       2010. 1. 1      2010 01 01
2010  01 01    2010/01/01      2010~01~01
输出：2010.01.01
如果用
reg := TPerlRegEx.Create(nil); //建立
                with reg do begin
                  Subject:= tmpstr;
                  RegEx   := '[^0-9]';
                  Replacement := '.';
                  Options := [preCaseLess]; //不区分大小的设定, 默认是区分的
                  ReplaceAll;
                  tmpstr:=Subject;
                end;
                FreeAndNil(reg);遇到  2010. 1 .1   就不行请高手指教了