x <- c('qux$foo$bar','qux$foo$bar; input$test$a$a','qux$`foo`; bar$`baz`; x$uvw','qux$`fo o`')
gsub('(\\w*)(?|\\$(\\w+)|\\$`([^`]*)`)', '\\1[["\\2"]]', x, perl=TRUE)