in reply to regex syntax and idomatic Perl

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

return "Match Error";

[download]

        ...it is unhealthy to remain near things that are in the process of blowing up.     man page for WARP, by Larry Wall

In Section Seekers of Perl Wisdom