for my$old(grep -d,<*>){$_=$old;s/[^a-zA-Z]/_/g;say"rename $old, $_"}