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