For it to run, that should be

expand(qr/a(.)c/, 'abc', '"a$1$1c"');
[download]

or

print (eval qq{"$to"})."\n";

expand(qr/a(.)c/, 'abc', 'a$1$1c');
[download]

But oh so wrong.