ColumnA=c("Kuala Lumpur 2 new","old Jakarta Sector31", "Sector 9, 7 Hong Kong","Jakarta new Sector22")
gsub("^(?:.*Sector ?([0-9]+).*|.*)$","\\1",ColumnA)
Q29sdW1uQT1jKCJLdWFsYSBMdW1wdXIgMiBuZXciLCJvbGQgSmFrYXJ0YSBTZWN0b3IzMSIsICAgICJTZWN0b3IgOSwgNyBIb25nIEtvbmciLCJKYWthcnRhIG5ldyBTZWN0b3IyMiIpCmdzdWIoIl4oPzouKlNlY3RvciA/KFswLTldKykuKnwuKikkIiwiXFwxIixDb2x1bW5BKQ==