my ( $name, @tests ) = unpack( 'A20 (A3)*', $line );