my @line = split('\|', $_);

if ($line[0] eq 'NTE') {
    # parse NTE line
}
elsif ($line[0] eq 'OBX') {
    # parse OBX line
}
else {
    # got something unexpected
}