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