Select Code to Download

     my ($ptid, $total, $used, $avail, $pct, $mp) = $element =~
       m!^(/dev/\S+)           # which partition $ptid
           \s+([\d.]+[MGK])    # total size of parition $total
...
           \s+([\d.]+[MGK])    # available space $avail
           \s+(\d{1,3})%       # percent usage $pct
           \s+(.*)$!x;         # mounting point $mp

Filesystem             Type  blocks     use     avail  %use Mounted on
/dev/root               xfs 16718720 11050536  5668184  67  /
/dev/dsk/dks1d6s0       xfs  8758624  1968528  6790096  23  /usr/darmo
+k
AFS                     afs 14400000        0 14400000   0  /afs