do {
      ...
  } while lc($make_account) ne 'y';

##</code><code>##

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