#!/usr/bin/perl

use strict;
use warnings;

use Text::Autoformat;

$/ = '';

my $messy = <DATA>;

my $formatted = autoformat($messy, {all=>1});

print $formatted;

__DATA__

1. Analyze problem
3. Design algorithm
1. Code solution
5. Test
4. Ship