untested
copy($_, "DIR1") for glob "*.txt"; [download]
In reply to Re: File::Copy and wildcards by tybalt89 in thread File::Copy and wildcards by RickNak