Select Code to Download

    $input ne 'good' && $input ne 'bad' && $input ne 'iffy'

if    ($input eq 'good') {print "..."}
elsif ($input eq 'bad')  {print "..."}
elsif ($input eq 'iffy') {print "..."}
else {next}
last;

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

while (do {print "...."; defined (my $input = <>)}) {
    if    (...) {...; last}
    elsif (...) {...; last}
    elsif (...) {...; last}
}