if ($ans !~ m/[Yy]/) 
{
  $quit = 1 ;
} 
else 
{
  $quit = 0 ;
}