ls|perl -lne 'for($d=$_){y/A-Z/a-z/;};rename $_,$d unless -f $d;'