do {
      ...
  } while $make_account !~ /^\s*y/i;