{
    local($ORS, $^I, @ARGV) = ('', '.bak', $passwd);

    while (<>) {
      if (s|($username:).*\n|$username:$pass\n|) {
        $foundit = 1;
      }
      print;
    }
}