Help for this page
c:\@Work\Perl>perl -wMstrict -le "my $adate = '2017-01-29 11:30:07.370'; ... " A: new '01-29-2017 11:30' old '2017-01-29 11:30:07.370' B: new '01-29-2017 11:30' old '2017-01-29 11:30:07.370'