use File::Copy;
copy("a/b/*.txt","a/");

##</code><code>##

use File::Copy;
copy("a/b/ccc.txt","a/");