<wolfram:expr inserter='ToString'> Replace[ FirstCase[{ #MetaTitle, #Title, None }, Except[_Missing] ], { None|_Missing :> "WolframCloud", any_ :> ToString @ OutputForm[any] <> "

<wolfram:expr inserter='ToString'> Replace[ FirstCase[{ #MetaTitle, #Title, None }, Except[_Missing] ], { None|_Missing :> "WolframCloud", any_ :> ToString @ OutputForm[any] <> " - Wolfram Cloud" } ] </wolfram:expr>