$section = "sub" if m|/\* Sub-structures \*/|;
$section = "main" if m|/\* Main structures \*/|;
$section = "" if m|/\* Functions \*/|;
$section = "sub" if m|/\* Sub-structures \*/|;
$section = "main" if m|/\* Main structures \*/|;
$section = "" if m|/\* Functions \*/|;