in reply to File::Copy and wildcards

untested 

copy($_, "DIR1") for glob "*.txt";

[download]

In Section Seekers of Perl Wisdom