$ perl -MFile::Find -e'find(sub{next if -d or /^\.\.?/ or /\.(jpe?g|gif|png)$/;print "$File::Find::name "},".")' | xargs perl -pi.bak -e 's/\r//g'