$file =~ s/(\w{2})\d+/\L$1yy/;