txn_add <- data.frame(NARRATION=c("$ $ $ +YBL PATAUDI CHOWK \ $",
                  "$ $ -ATM CASH 83181 + MAIN BHAWANA ROAD NEW DELHI $",
                  "$ $ [5839/P1TNDE06/+RAGHUBARPURA $",
                  "$ MAXIMUMOUTFITS PRIVATE LIMITED } $ ATDELHIIN- $ $ /5631 $",
                  "$ ATM CASH-N4077800-+SPRINGFIELDCOLONYFFAR IDABADHRIN-04/06/18 $ /5631 ( $ $ VERIFICATION $",
                  "$ USHAHIGHWAYFILLINGSFARIDABADIN-23/08 /18 $ /5631 (Ref# $ VERIFICATION $"
))
 
sub(".*?(?|(?:[+@:]| AT(?!M\\b))\\s*([A-Z]+(?:\\s+[A-Z]+)*)|\\b([A-Z]+(?:\\s+[A-Z]+)*)-\\d).*", "\\1", txn_add$NARRATION, perl=TRUE)
 

dHhuX2FkZCA8LSBkYXRhLmZyYW1lKE5BUlJBVElPTj1jKCIkICQgJCArWUJMIFBBVEFVREkgQ0hPV0sgXCAkIiwKICAgICAgICAgICAgICAgICAgIiQgJCAtQVRNIENBU0ggODMxODEgKyBNQUlOIEJIQVdBTkEgUk9BRCBORVcgREVMSEkgJCIsCiAgICAgICAgICAgICAgICAgICIkICQgWzU4MzkvUDFUTkRFMDYvK1JBR0hVQkFSUFVSQSAkIiwKICAgICAgICAgICAgICAgICAgIiQgTUFYSU1VTU9VVEZJVFMgUFJJVkFURSBMSU1JVEVEIH0gJCBBVERFTEhJSU4tICQgJCAvNTYzMSAkIiwKICAgICAgICAgICAgICAgICAgIiQgQVRNIENBU0gtTjQwNzc4MDAtK1NQUklOR0ZJRUxEQ09MT05ZRkZBUiBJREFCQURIUklOLTA0LzA2LzE4ICQgLzU2MzEgKCAkICQgVkVSSUZJQ0FUSU9OICQiLAogICAgICAgICAgICAgICAgICAiJCBVU0hBSElHSFdBWUZJTExJTkdTRkFSSURBQkFESU4tMjMvMDggLzE4ICQgLzU2MzEgKFJlZiMgJCBWRVJJRklDQVRJT04gJCIKKSkKCnN1YigiLio/KD98KD86WytAOl18IEFUKD8hTVxcYikpXFxzKihbQS1aXSsoPzpcXHMrW0EtWl0rKSopfFxcYihbQS1aXSsoPzpcXHMrW0EtWl0rKSopLVxcZCkuKiIsICJcXDEiLCB0eG5fYWRkJE5BUlJBVElPTiwgcGVybD1UUlVFKQo=