$old = $new_files;
$new_files =~ s/2005/2006/g;
copy( $old, $new_files ) or die "Copy failed: $!";