mel script to get opposite object name

getMirror.mel

proc string getMirror(string $obj_name) {
    string $reg = "_[RL]_";
	string $side = `match $reg $obj_name`;
	string $otherside = "_L_";
	if($side == "_L_") {
		$otherside = "_R_";
	}
	else if ($side == "_T_"  || $side == "_C_") {
	    $otherside = $side;
	}
	string $s1 = `substitute $reg $obj_name $otherside`;
	return $s1;
}

//TEST
string $result = getMirror("JT_C_hip_1");
print $result