if ($answer == "y") {
      print $MOD $change;
    } else {
      print $MOD $_;
    }