#!/usr/bin/perl

use strict;
use warnings;


my $adate = "2017-01-29 11:30:07.370";
 
# more direct way, but returning a "1".
;
printf "\n 1 - %s\n\n", $adate =~ s/(\d{4})-(\d{2})-(\d{2})\s(\d{2}):(\d{2})(.*)/$2-$3-$1 $4:$5/r;
  
printf " 2 - %s\n\n", $adate =~ s/(\d{4})-(\d{2})-(\d{2})\s(\d{2}):(\d{2})(.*)/$2-$3-$1 $4:$5/r;