Select Code to Download

#!/usr/bin/perl
use warnings;
...
};
my ($microsec) = $string =~ /\.([0-9]+)/;  # Microseconds not handled 
+by the modules.
say $tp->strftime("%Y-%m-%d %H:%M:%S.$microsec");