if ($answer eq "y") { #this is a string comparison. == is for numbers only

##</code><code>##

if ($answer =~ /^y/) {