I copied and pasted your code, making sure that I'd copied over spaces instead of tabs. Nothing in your code lines up. I'm using Firefox on Linux, something I assume is pretty standard. If you meant something that was organized, what you posted wasn't it. Maybe you had tabs on your end that didn't get conveyed to perlmonks.org

$result = ($major_length == 4800)  ? 18
            : ($major_length == 8552)   ? ($val == 4        ? 33
                                                       : $val == 1    
+      ? 18
                                                       : die "not hand
+led")
            : die "not handled";
[download]