Help for this page
expand(qr/a(.)c/, 'abc', '"a$1$1c"');
print (eval qq{"$to"})."\n"; expand(qr/a(.)c/, 'abc', 'a$1$1c');