Select Code to Download

slot_1  Full
slot_2  Full
...
slot_5  Full
slot_6  Full
Drive: tape 3 loaded

# 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;