perl -e 'for (@ARGV) {for($d=$_){y/A-Z/a-z/;};rename $_,$d unless -f $d;}'  *