in reply to Is this concise enough? (code)
my( $loaded, %drives )= ( split m[\s+], $status, 13 )[12,0..11]; [download]