- $inline =~ s/^\d+\)\s+/ <ol>\n <li>/;
- $inline =~ s/\s*\d+\)\s+/<\/li>\n <li>/g;
- $inline .= "</li>\n </ol>";
+ $inline =~ s/^\d+\)\s+/$BASE_INDENT <ol>\n$BASE_INDENT <li>/;
+ $inline =~ s/\s*\d+\)\s+/<\/li>\n$BASE_INDENT <li>/g;
+ $inline .= "</li>\n$BASE_INDENT </ol>";