df -h | perl -lpe 's/\s+/,/g' > the.csv