Select Code to Download

Select or download this

use strict;
use warnings;
...
2017-11-16 11:42:21 FATAL: Error while copying Research Data from JOE 
+MX000017105328_3626588.1523787.IN.EDI from D:\EnecoEDIELArchive\B2B_E
+LEK\ to \\ENCNRW0012\EnecoData\EDIEL_IN\B2B_ELEK\, error was:
2017-11-16 11:42:21 FATAL: Error while copying MX000017105328_3626588.
+1523787.IN.EDI from D:\EnecoEDIELArchive from JOE\B2B_ELEK\ to \\ENCN
+RW0012\EnecoData\EDIEL_IN\B2B_ELEK\, error was:
2017-11-16 11:42:21 FATAL: Error while copying MX000017105328_3626588.
+1523787.IN.EDI from D:\EnecoEDIELArchive to BOB\B2B_ELEK\ to \\ENCNRW
+0012\EnecoData\EDIEL_IN\B2B_ELEK\, error was:

Select or download this

    if ($msg =~ /^Error while copying (.*) from (.*) to (.*), error wa
+s/) {
        my ($filename, $source_dir, $dest_dir) = ($1, $2, $3);
        ... do something ...
    }

Select or download this

$ perl pm_1204144.pl
FILE:   <MX000017105279_2448299.1523788.IN.EDI>
...
        <D:\EnecoEDIELArchive>
DST:    <\\ENCNRW0012\EnecoData\EDIEL_IN\B2B_ELEK\>
        <BOB\B2B_ELEK\ to \\ENCNRW0012\EnecoData\EDIEL_IN\B2B_ELEK\>