use strict;
use warnings;
use File::Copy;
use Cwd;

my $home_dir = getcwd;
$home_dir = "$home_dir/tangosimu";

opendir(DIR,$home_dir) or die $!;
while (my $filename = readdir DIR)
     {
       my $new_files = $home_dir . '/' . $filename;
       next unless -f $new_files;
       my $old = $new_files;
       $new_files =~ s/2005/2006/g;
       if ($old eq $new_files) {
       }
       else {
       copy("$old", "$new_files") or die "Copy failed: $!";
       }
       
     }
closedir DIR;