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

##</code><code>##

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

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