df -k | perl -lane 'print $F[3]'

##</code><code>##

 df -k / | perl -lane 'print $F[3] if /\d/' # skips column headings

# or just:

 df -k | perl -lane 'print $F[3] if m{/$}'  # only prints value for "/"