use IO::Prompt;

my $reply = prompt("Pick a letter between a and d.\n",
  -r => { 
    "Pick a letter between a and d -- or else!\n" => qr/^[a-d]$/i 
  }
);