next if ($lines[0] !~ /\A\s+\d+/);