my $string = "";
open (VOL, "$ssh $filer aggr show_space $aggr |") || die "Cannot connect to $filer: $! \n";
while (my $line = <VOL>)
{
    $string .= $line;
} # end while VOL
close (VOL);

my @parts = split /\n\n/,$string;
for my $part (@parts){
     next unless $part =~ m!^\s*Volume!;
     print ("Habe: $part\n");
}