날짜 데이터를 찾는 Perl 정규식

데이터 마이그레이션 등 작업시 날짜 데이터 부분, 즉 '2011-08-23 11:24:56' 으로 된 부분만 찾아서 now 와 같은 것으로 바꿀 필요가 가끔 있을 때 요긴하다.

'[12][0-9]{3}-(0[1-9]|1[0-2])-(0[1-9]|[12][0-9]|3[01]) [0-2][0-9]:[0-5][0-9]:[0-5][0-9]'

년도: 1 또는 2로 시작하여 0 ~ 9 사이의 값으로 3자리가 채워지며,

월: (0으로 시작하는 경우 뒤에 1~9 사이의 값) 또는 (1로 시작하는 경우 뒤에 0~2사이의 값),

일: (0으로 시작하는 경우 뒤에 1~9 사이의 값) 또는 (1또는 2로 시작하는 경우 뒤에 0~9사이의 값) 또는 (3으로 시작하는 경우 뒤에 0 또는 1)

...