Select Code to Download

# perl -MText::Autoformat -e 'print $Text::Autoformat::VERSION , "\n"'
+ ; cat p.pl ; echo ; perl p.pl
1.67

#!/usr/local/bin/perl

...
1. Analyze problem
3. Design algorithm
1. Code solution

    # Configuration...

       $formatted = autoformat $rawtext, { %options };

      # Don't recognize Roman numerals or alphabetics as list markers.
+..
       autoformat { lists => 'number, bullet' }, $text;