$std_date = sprintf('%04d%02d%02d', 
                    (split m|/|, $date)[2, 1, 0]);