despejar o espaço em branco final em um projeto

Depois de adicionar Cane a um projeto antigo e idiota, encontrei (entre outros problemas) centenas de relatórios de ‘A linha contém espaços em branco à direita’. Depois de um rápido perl onliner, todos desapareceram.

find . -name '*.rb' -print0 | xargs -0 perl -pi -e 's/[^Srn]+$//'