$curroption = $1 if s/^([A-Z]+) //;