Parsing output from a 'system' call into objects?

Select or download this

    my $test = system($test, "list");

Select or download this

    p $test
        CoID:       Type:  State:    ID:
...
        ExampleCo   A      contact   60047
        ExampleCo   B      contact   19425
        0

Select or download this

    array
        ID = 97546
...
        ID = 60047
            CoID  = ExampleCo
            State = contact

Select Code to Download