while (<>) {
    next if (/^\s*\#/);
    $last_continuation = $in_continuation;
    $in_continuation = /\\\s*$/;
    next if ($last_continuation);
    if (/^\s*([^\s]+)\s*:/) {
	print $1, "\n";
    }
}