open (VOL, "$ssh $filer aggr show_space $aggr |") || die "Cannot connect to $filer: $! \n";
while (my $line = <VOL>){
    if( $line =~ /^\s*Volume/ ){
        $bool = 1;
    }

    next unless $bool;

    print $line;

    if( $line =~ /^\n+$/ ){
        $bool = 0;
    }
} # end while VOL
close (VOL);

 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");
}