ClipboardContent :=
Module[{content = NotebookGet[ClipboardNotebook[]], nb},
If[! FreeQ[content, _RawArray],
nb = CreateDocument[content, Visible -> False];
SelectionMove[nb, Next, Cell];
ToExpression[
First[FrontEndExecute[
FrontEnd`ExportPacket[NotebookSelection[nb], "InputText"]]]],
If[Head[content[[1, 1, 1]]] === String, content[[1, 1, 1]],
First[FrontEndExecute[
FrontEnd`ExportPacket[content[[1, 1, 1]], "InputText"]]]]]]