nfs 1 active (followed by a variable number of words)
tempfs 2 active (followed by a variable number of words)
ufs 0 locked (followed by a variable number of words)
.
.
and so on

##</code><code>##

   local @ARGV = ("diskmon");
   local $^I = '.bak';
   while (<>) {
     m/^(\w+)\s+(\d+)$/;
     printf "$1 %d %s\n", exists $disk{$1} ? 0 : $2+$partition;
   }

##</code><code>##

nfs 1
tmpfs 6
ufs 2