$inline =~ s/^\d+\)\s+/ <ol>\n <li>/;
$inline =~ s/\s*\d+\)\s+/<\/li>\n <li>/g;
$inline .= "</li>\n </ol>";
}
elsif( $inline =~ /^\<\!\-\-\spre\s\-\-\>/ ) {
$inline =~ s/^\d+\)\s+/ <ol>\n <li>/;
$inline =~ s/\s*\d+\)\s+/<\/li>\n <li>/g;
$inline .= "</li>\n </ol>";
}
elsif( $inline =~ /^\<\!\-\-\spre\s\-\-\>/ ) {