while (<INFILE>) {
    chomp;
    m/(\d+)\s+\(\((\d+)\s+(\d+)\s+(\d+)\)\s*\((\d+)\s+(\d+)\s+(\d+)\)\)/;
    $L = $3 + $6;
    $D = $2 + $5;
    $M = $4 + $7;
}