R search subset string from data.table column for Capitalized words

Question

I have a data.table with a "message" column.
I need to extract those messages with following pattern in it

"THISIsNotImportant: THIS_IS_I