s/(\d+)-(\d+)-(\d+)/sprintf '%04d-%02d-%02d', $1, $2, $3/e