http://www.perlmonks.org?node_id=242646


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'