#!/usr/bin/perl -w

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