Select Code to Download

    if (/^\d{4,}-[\d\-T\:\.]+(?=\s+)/p) {
        my ($dts,$rest) = (${^MATCH}, ${^POSTMATCH});
        my $dt = $strp_one->parse_datetime($dts);
...
            $dt->strftime('%Y-%m-%d,%H:%M:%S'),#'%Y-%m-%d-%H-%M-%S-%6N
+-%Z'
            $rest ] );
    }

__DATA__
2017-02-20T09:30:53.177000    20848[30892]    0000000000000000    [DM_
+MQ_I_DAEMON_START]info:  "Message queue daemon (tid : 27944, session 
+0102b20d80000456) is started sucessfully."
2017-02-20T09:30:53.193000    20848[17732]    0102b20d80000003    [DM_
+DOCBROKER_I_PROJECTING]info:  "Sending information to Docbroker locat
+ed on host (PWDOCPRDCON32) with port (1489).  Information: (Config(se
+rver), Proximity(1), Status(Open), Dormancy Status(Active))."
...
2017-02-20T09:30:53.193000    20848[17732]    0102b20d80000003    [DM_
+DOCBROKER_I_PROJECTING]info:  "Sending information to Docbroker locat
+ed on host (server) with port (1354).  Information: (Config(Server), 
+Proximity(3), Status(Open), Dormancy Status(Active))."
Mon Feb 20 09:31:25 2017 [INFORMATION] [AGENTEXEC 26816] Detected duri
+ng program initialization: Version: 7.2.0160.0297  Win64
Mon Feb 20 09:31:30 2017 [INFORMATION] [AGENTEXEC 26816] Detected duri
+ng program initialization: Agent Exec connected to server server:  [D
+M_SESSION_I_SESSION_START]info:  "Session 0102b20d80397508 started fo
+r user user."