print eval qq{"$to"}, "\n";

##</code><code>##

     my $q = $1 ;
     $to =~ s/\$1/$q/g ;