Select Code to Download

$to =~ s/\$(\d+)/$a[$1-1]/g;

$to =~ s/\\(.)|\${(\d+)})|\$(\d+)/
   (defined $1
...
        )
   )
/eg;