#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;

my $file='d:\temp\result.txt';
my $dir='d:\temp\Testordner\\';

open (my $fh, '<', $file) or die qq!ERROR OPEN $file ($!)\n!;
while (<$fh>)
{
  # \n entfernen
  chomp;

  # weiter wenn die Datei nicht existiert
  next unless(-f $_);

  copy($_, $dir) or die qq!ERROR MOVE "$_" ($_)\n!;
}
close ($fh);