text <- "[2017-12-29 18:24:52] Comentario añadido: SOME RANDOM TEXT I NEED ANALYZE
[2017-12-29 18:24:52] Comentario añadido: OTHER RANDOM TEXT
[2017-12-29 19:24:52] Comentario añadido: BLA BLA BLA
[2017-12-29 20:24:52] Comentario añadido: BLA BLA BLA BLABLA BLA BLABLA BLA BLA
[2017-12-29 21:24:52] Comentario añadido: BLA BLA BLABLA BLA BLABLA BLA BLA
[2017-12-29 22:24:52] Comentario añadido: BLA BLA BLABLA BLA BLA"
cat( gsub( "(?n)\\ [.*?] Comentario añadido:" , " ° " , text) )
dGV4dCA8LSAiWzIwMTctMTItMjkgMTg6MjQ6NTJdIENvbWVudGFyaW8gYcOxYWRpZG86IFNPTUUgUkFORE9NIFRFWFQgSSBORUVEIEFOQUxZWkUgClsyMDE3LTEyLTI5IDE4OjI0OjUyXSBDb21lbnRhcmlvIGHDsWFkaWRvOiBPVEhFUiBSQU5ET00gVEVYVApbMjAxNy0xMi0yOSAxOToyNDo1Ml0gQ29tZW50YXJpbyBhw7FhZGlkbzogQkxBIEJMQSBCTEEKWzIwMTctMTItMjkgMjA6MjQ6NTJdIENvbWVudGFyaW8gYcOxYWRpZG86IEJMQSBCTEEgQkxBIEJMQUJMQSBCTEEgQkxBQkxBIEJMQSBCTEEKWzIwMTctMTItMjkgMjE6MjQ6NTJdIENvbWVudGFyaW8gYcOxYWRpZG86IEJMQSBCTEEgQkxBQkxBIEJMQSBCTEFCTEEgQkxBIEJMQQpbMjAxNy0xMi0yOSAyMjoyNDo1Ml0gQ29tZW50YXJpbyBhw7FhZGlkbzogQkxBIEJMQSBCTEFCTEEgQkxBIEJMQSIKY2F0KGdzdWIoIig/bilcXFsuKj9dIENvbWVudGFyaW8gYcOxYWRpZG86IiwgIiDCsCAiLCB0ZXh0KSkK