#! perl -slw
use strict;

print "Name of consumer  Subdivision  Amount   Type of work Phase";

printf "%-14s %14s %7.2f %-14s %-s\n",
    m[
        ( \S+ (?: \s \S+ )? ) \s+
        ( \S+ (?: \s \S+ )? ) \s+
        ( [0-9\.]+ ) \s+
        ( \S+ (?: \s \S+ )? ) \s+
        ( \S+ (?: \s \S+ )? ) $
    ]x
    while <DATA>;

__DATA__
Nancy    Elm Street      600.00     New service Single phase
Stella Barry  Petersburg      1000.00  Replacement   Single
Julie    Palm Street        400.00  Replacement  Three phase
Debbie Brown  Bakerville      800.00   New service  Three