$ perl -e 'print join("::", split q"\|", q"OBX|foo|blah|||"),$/'
OBX::foo::blah
$ perl -e 'print join("::", split q"\|", q"OBX|foo|blah|||", -1),$/'
OBX::foo::blah::::::