print "OK: check if GH_ options are in use\n"

                	if ($verbose);

		foreach my $line (split(/(GH(?:S[?+]|[_\w\d]+)?=[^\n]+\n)/, $tmp)) {

			if ($line =~ /GH([_\w\d]+)=[^\n]+\n/) {

				print "OK: seen GH$1.\n" if ($verbose);

				$tmp =~ s/GH([_\w\d]+)=[^\n]+\n//;

				next;

			}

		}