use strict;
use warnings;

while (my $line = <DATA>) {
    next if $line =~ /^\s*$/;
    my ($date,$time,$severity,$msg) = split /\s+/, $line, 4;

    my ($r1_file, $r1_src, $r1_dst, $r2_file, $r2_src, $r2_dst);

    if ($msg =~ /^Error while copying (.*) from (.*) to (.*), error was/) {
        ($r1_file, $r1_src, $r1_dst) = ($1, $2, $3);
    }

    if ($msg =~ /^Error while copying (.*?) from (.*?) to (.*?), error was/) {
        ($r2_file, $r2_src, $r2_dst) = ($1, $2, $3);
    }

    print "FILE:\t<$r1_file>\n\t<$r2_file>\n";
    print "SRC:\t<$r1_src>\n\t<$r2_src>\n";
    print "DST:\t<$r1_dst>\n\t<$r2_dst>\n\n";
}

__DATA__
2017-11-16 11:42:20 FATAL: Error while copying MX000017105279_2448299.1523788.IN.EDI from D:\EnecoEDIELArchive\B2B_ELEK\ 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\B2B_ELEK\ to \\ENCNRW0012\EnecoData\EDIEL_IN\B2B_ELEK\, error was:
2017-11-16 11:42:21 FATAL: Error while copying Research Data from JOE MX000017105328_3626588.1523787.IN.EDI from D:\EnecoEDIELArchive\B2B_ELEK\ 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 \\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 to BOB\B2B_ELEK\ to \\ENCNRW0012\EnecoData\EDIEL_IN\B2B_ELEK\, error was:

##</code><code>##

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

##</code><code>##

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

FILE:   <MX000017105328_3626588.1523787.IN.EDI>
        <MX000017105328_3626588.1523787.IN.EDI>
SRC:    <D:\EnecoEDIELArchive\B2B_ELEK\>
        <D:\EnecoEDIELArchive\B2B_ELEK\>
DST:    <\\ENCNRW0012\EnecoData\EDIEL_IN\B2B_ELEK\>
        <\\ENCNRW0012\EnecoData\EDIEL_IN\B2B_ELEK\>

FILE:   <Research Data from JOE MX000017105328_3626588.1523787.IN.EDI>
        <Research Data>
SRC:    <D:\EnecoEDIELArchive\B2B_ELEK\>
        <JOE MX000017105328_3626588.1523787.IN.EDI from D:\EnecoEDIELArchive\B2B_ELEK\>
DST:    <\\ENCNRW0012\EnecoData\EDIEL_IN\B2B_ELEK\>
        <\\ENCNRW0012\EnecoData\EDIEL_IN\B2B_ELEK\>

FILE:   <MX000017105328_3626588.1523787.IN.EDI from D:\EnecoEDIELArchive>
        <MX000017105328_3626588.1523787.IN.EDI>
SRC:    <JOE\B2B_ELEK\>
        <D:\EnecoEDIELArchive from JOE\B2B_ELEK\>
DST:    <\\ENCNRW0012\EnecoData\EDIEL_IN\B2B_ELEK\>
        <\\ENCNRW0012\EnecoData\EDIEL_IN\B2B_ELEK\>

FILE:   <MX000017105328_3626588.1523787.IN.EDI>
        <MX000017105328_3626588.1523787.IN.EDI>
SRC:    <D:\EnecoEDIELArchive to BOB\B2B_ELEK\>
        <D:\EnecoEDIELArchive>
DST:    <\\ENCNRW0012\EnecoData\EDIEL_IN\B2B_ELEK\>
        <BOB\B2B_ELEK\ to \\ENCNRW0012\EnecoData\EDIEL_IN\B2B_ELEK\>