while (length($parts[6]) < $parts[5]) {
    $parts[6] .= ' ' . splice @parts, 7, 1;
}