Help for this page
... foreach $word (@file) { ... rename($word, $new) or die "unable to rename $word to $new: $!\n"; } }