I think that a combination of
File::Find,
File::Copy (or probably
File::Copy::Recursive, which seems to suit your copying needs but needs to be installed) and
perlre/
perlretut will help you get through your assignment.
Flavio
perl -ple'$_=reverse' <<<ti.xittelop@oivalf
Don't fool yourself.