my ($reg, $reg2) = @ARGV;
my $string = "how1=on&how2=on";

$string =~ s/$reg/ eval "\"$reg2\"" /eg;
print $string;