my $new_date = sprintf("%04d-%02d-%02d %02d:%02d:00",(split /\D+/, $date)[2,1,0,3,4]);