ClipboardContent := Module[{string = First[FrontEndExecute[ FrontEnd`ExportPacket[NotebookGet[ClipboardNotebook[]], "InputText"]]]}, If[StringContainsQ[string, "CompressedData["], ToExpression[string], string]]