perl -e '$c=$_=shift; s/\d/yy/g; $d = lc ; rename $c, $d unless -e $d;' FOOBAR*.TXT