Select Code to Download

 sub parse_lab_test {
    @segs = split('\r', $b);  # \r is the record terminator
...
    }
}

sub msh_fields {
    ($mshseg) =  @_;
...
          next MAIN;     # Label that ends the script
    } 
}