set aStr to "龍馬伝"
set aRes to decodeCharacterReference(aStr) of me
–>　　"龍馬伝"

set aStr to "＼"第2エア＼""
set aRes to decodeCharacterReference(aStr) of me
–>　　"＼"第2エア＼""

on decodeCharacterReference(aStr)
　　set anNSString to current application’s NSString’s stringWithString:aStr
　　set theData to anNSString’s dataUsingEncoding:(current application’s NSUTF16StringEncoding)
　　set styledString to current application’s NSAttributedString’s alloc()’s initWithHTML:theData documentAttributes:(missing value)
　　set plainText to (styledString’s |string|()) as string
　　return plainText
end decodeCharacterReference