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

$string =~ s/$reg/$reg2/eg;
print $string;