Select Code to Download

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);
   ...
}