use strict;
my $str = 'qux$foo$bar
qux$foo$bar; input$test$a$a
qux[["foo"]][["bar"]]; input[["test"]][["a"]][["a"]]
qux$`foo`; bar$`baz`; x$uvw
qux[["foo"]]; bar[["baz"]]; x[["uvw"]]
qux$`fo o`
q_ux$f_o_o$b.a_r';
my $regex = qr/(\w*)(?|\$`([^`]*)`|\$([^\s$]+))/mp;
my $subst = '\\1[["\\2"]]';
my $result = $str =~ s/$regex/$subst/rg;
print "The result of the substitution is' $result\n";
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Perl, please visit: http://perldoc.perl.org/perlre.html