$ perl -Mstrict -Mwarnings -E '
my $dateStr = q{2016-05-16 00:51:07};
$dateStr =~ s{ (\d\d)}{ sprintf q{ %2.2i}, $1 - 1 }e;
say $dateStr;'
2016-05-16 -01:51:07
$