#!/usr/bin/perl -lpi

use strict;
use warnings;

my @chunks=split /\|/;
next unless $chunks[0] eq 'OBX';
s/(?=[A-Z])/U/g,
  s/(?=[a-z])/L/g for $chunks[2];
$_=join '|', @chunks;

__END__