Select Code to Download

s#^(OBX\|[^|]+\|)([^^]*)#$1 . join("",map( { s/([A-Z])/U$1/ || s/([a-z
+])/L$1/; $_ } split //,$2)) #e;
OBX