print "Are you having/had a good, bad, or iffy day $name?: ";
while (my $input = <>) {
    chomp $input;
    if    ($input eq 'good') {print "..."; last}
    elsif ($input eq 'bad')  {print "..."; last}
    elsif ($input eq 'iffy') {print "..."; last}
    print "Are you having/had a good, bad, or iffy day $name?: ";
}