slot_1  Full
slot_2  Full
slot_3  Empty
slot_4  Full
slot_5  Full
slot_6  Full
Drive: tape 3 loaded

##</code><code>##

# status in this case is the output of mtx, above...
my @fields = split m[\n|\s+], $status, 13;
my $loaded = pop @fields;
my %drives = @fields;