$result = ($major_length == 4800
   ? 18
   : ($major_length == 8552
        ? ($val == 4
             ? 33
             : ($val == 1
                  ? 18
                  : die "not handled")
             )
         : die "not handled"
   )
);

##</code><code>##

; $result = ($major_length == 4800 ? 18
                                   : ($major_length == 8552 ? ($val == 4 ? 33
                                                                         : ($val == 1 ? 18
                                                                                      : die "not handled") )
                                                            : die "not handled"                              ) )