Select Code to Download

#!/usr/bin/perl

...
$new_datetime =~ s/(\d{4})-(\d{2})-(\d{2})\s(\d{2}):(\d{2})(.*)/$2-$3-
+$1 $4:$5/;
  
print " 2 - $new_datetime\n\n";

#!/usr/bin/perl

...
  
printf " 2 - %s\n\n", $adate =~ s/(\d{4})-(\d{2})-(\d{2})\s(\d{2}):(\d
+{2})(.*)/$2-$3-$1 $4:$5/r;