#!/usr/bin/perl                                                                                                         
open (GG,"getall.txt");                                        
                                                            
$dest="/home/test/files/";                                  
$targ="/home/new/newfiles/";                         
                                     
while ($_=<GG>) {                                              
        ($first,$second,$third)=split(/\./,$_);                
        print "first: $first second: $second third: $third \n";
        system (`cp $dest $_ $targ`);                          
}                                                              
close(GG);   

##</code><code>##

cp: /home/test/files/: is a directory.  Need "-R" option.
sh: /home/new/newfiles/: Execute permission denied.   

##</code><code>##

get.3.020922120002
get.3.020923120002
get.3.020924120001
get.3.020925120001
get.3.020926120002
get.4.020921153001
get.4.020922153001
get.4.020923153002
get.4.020924153001
get.4.020925153002
get.5.020922083002
get.5.020923083002
get.5.020924083002
get.5.020925083003
get.5.020926083002