perl -i.bak -pe 's/^\s+//' foo