# 1st shot
df -h | perl -e '@i = <>;s/(\ +)/\,/g && print for @i[1..@i];' > the.csv

# 2nd shot
df -h | perl -e '/^\w/&&next||s/\ +/\,/g&print for<>' > the.csv