Help for this page
Select Code to Download
Select
or
download this
print eval qq{"$to"}, "\n";
Select
or
download this
my $q = $1 ; $to =~ s/\$1/$q/g ;