$_ = sprintf '%04d-%02d-%02d', ((split m:/:), (0) x 3)[ 2, 0, 1 ] for @fields[ 10, 14, 24, 26 ];