if (my ($capacity,$loc) = $df_output =~m/(?:\S+\s+){4}(\d+)%\s+(.+)$/){
  #say "cap=$capacity of $loc";
  return $capacity;
}

return "Match Error";