in reply to Re: Yet Another File::Copy problem
in thread Yet Another File::Copy problem

That should be

next if $all_qa_files =~ /^\.\.?$/;

But even that's not good enough. copy cannot copy directories, so you need to skip all directories, not just the special ones. The following will do the trick:

next if not -f "$qa_dir$all_qa_files";