for (;;) {
   print("Enter Number: ");
   defined( my $line = <STDIN> )
      or last;
   s/^\s+//, s/\s+\z// for $line;
   next if $line eq '';
   last if $line =~ /^(?:d|done)\z/i;
   ...
}