#!/bin/sh
confirm find . -depth -name '* *' | xa rename -v 'my ($d,$b) = m{(.*)/(.*)}; $b =~ s/ /_/g; $_ = "$d/$b"'