# regexes referenced below should be defined or imported here

# hash of hashes summarizing df results
my %partitions_on;
LINE:
while (<>) {
    # pull the server name from a line like [jboss-box1]
    my ( $server ) = /$SERVER_PATTERN/;
    next LINE if !$server;

    # skip what doesn't relate to the df command
    NON_DF_INFO:
    while (<>) { 
        last NON_DF_INFO if /$DF_PATTERN/;
    }

    my $header = <>;
    my @cols = split;
    my %value_of;
    DATA:
    while (<>) {
        last DATA if /$BLANK/;
        @value_of{@cols} = split;
    }
    %partitions_on{$server} = \%value_of;

    # go back to hunting for another server
    next LINE;
}