xyyy.TXT
twyy.TXT
kgyy.TXT
mmyy.TXT

##</code><code>##

    $file =~ s/\d+/yy/;
    $file =  lc $file;