#!/usr/bin/perl
use strict; 
use warnings;

print "\nPick a letter between a and d.\n";
chomp(my $reply = <STDIN>);
while ($reply !~ /^[a-d]$/i) {
    print "Please enter only a letter between a and d.\n";
    chomp($reply = <STDIN>);
}