my $row ="";
my $inarray=0;
my $cmd  = "Command";
open $fd,  "$cmd|"
while (<$fd>) {
        chomp;
    if (/^array|^unassigned/){
        print "$row\n" if $inarray;
        $row=$_;
        $inarray=m/^array/;
        next;
    }
    next unless $inarray;
    $row .= " $_";
}
    print "$row\n" if $inarray;

        close($fd);