#!/usr/bin/perl -w

foreach my $old (<*/*2016*>)
{
   my $new = $old;
   $new =~ s/2016/2017/;
   system("cp -a $old $new");
}
