while () {
print "Are you having/had a good, bad, or iffy day $name?: ";
 
	chomp ($input = <STDIN>);
	  if ($input eq 'good') {
			print "Glad you are doing well!\n";last;}
		elsif ($input eq 'bad') {
			print "Oi, that's not good to hear!\n";last;}
		elsif ($input eq 'iffy') {
			print "At least you're undecided...still hope after all.\n";last;}
		
}	
print "\n"; 

##</code><code>##

elsif ($input ne 'good'|| 'bad'|| 'iffy') {
             next;}