if ($ans =~ /^[n]o?/i) {