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