map { copy($_, $_ . '.new') } glob("*.ext"); [download]
In reply to Re^2: How to use file copy with wild card characters by redhotpenguin in thread How to use file copy with wild card characters by han_perl