$file =~ s/(\w{2})\d+/$1 . lc($1) . "yy"/e;