Select Code to Download

use strict;
use warnings;
...
__DATA__
D:\Eterra\Distribution\FileUpdaterServer\%SERVER_ENVIRONMENT%\Bitmaps 
+| %IDMS_ROOT%\bitmaps

Ran at: Tue Jun 12 10:56:21 2018
Error: Couldn't copy D:\Eterra\Distribution\FileUpdaterServer\PROD\Bit
+maps to D:\Eterra\Distribution\XXXCorpXXX\bitmaps :  -
--,,
Finished at: Tue Jun 12 10:56:22 2018

Ran at: Tue Jun 12 10:51:56 2018
****Copied D:\Eterra\Distribution\FileUpdaterServer\PROD\Bitmaps to D:
+\Eterra\Distribution\XXXCorpXXX\bitmaps
    (1 files and directories, 1 directories, depth = 1)
Finished at: Tue Jun 12 10:51:56 2018

my $ok_todo_asper_condcopy = sub {
    my $org = shift;
...
    return $copy;
};

      for my $file (@files) {
          my ($file_ut) = $file =~ m{ (.*) }xms;
...
              }
          }
      }