in reply to do-while loop question
You could do away altogether with your 'this or that' conditional by simply using:
do { ... } while lc($make_account) ne 'y';
or
do { ... } while $make_account !~ /^\s*y/i;
... so that if they accidently lean on the space bar it will ignore the spaces (and tabs)...
print@_{sort keys %_},$/if%_=split//,'= & *a?b:e\f/h^h!j+n,o@o;r$s-t%t#u'
In Section
Seekers of Perl Wisdom