Help for this page
for (;;) { print("Enter Number: "); ... last if $line =~ /^(?:d|done)\z/i; ... }
while ( (print "Enter Number: "), (my $line=<STDIN>) !~ /^\s*d(?:one)?\s*$/i ... chomp($line); ... }