<code>

#!/usr/bin/perl

use Cwd;

use strict;

use utf8;

my $tpath="/tmp/ttmp/";

my $spath="/opt/myfirstbank/uploadDir/";

open(F,"list4") or die "Cannot open list2. $!\n";

while (<F>)

{

$_=~/^(.*?)\/(.*?)\/(.*?)\s/;

system("print $1/$2\n");

system("cp $spath$1/$2/"$3" $tpath$3");

}

close F;