while ($count < 5 and $ans =~ /^\s*$/)