if (/^OBX(?:[^|]*|){2}([^^]*)/) {
    substr($_, $-[1], length($1)) =~ s/(?=([a-z]))/$1 > 'Z' ? 'L' : 'U'/ge;
}