Okay, so this is really NOT obfuscated, but it is a one liner!

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

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

I kinda like the look, but merlyn has already pointed out that s/// for is bad. :)

#!/home/bbq/bin/perl
# Trust no1!