#! 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+(\S+)\s+(.+)\s+(\S+)$]
    while <DATA>;

__DATA__
Nancy Drew   Elm Street      600.00      New service  Single
Stella Barry  Pine Avenue     1000.00  Replacement Single
Julie Green   Palm Street        400.00  Replacement Three
Debbie Brown  Baker Avenue      800.00   New service Three