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

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