$quit = ($answer !~ m/^y/i);