#! perl -slw
use strict;

open DATA, "test2.txt" or die "Cant open file";

print "Receiptno. Consumer name           Consumer no. Subdivision     Type of work     Phase     Cheque no.   Amount";

printf "%-11s %-23s %-12s %-14s %-16s %-10s %-11s %-14.2f\n",
    m[
        ( [0-9\.]+ )\s+
        ( \S+ (?: \s \S+ )? ) \s+
        ( [0-9\.]+ )\s+
        ( \S+ (?: \s \S+ )? ) \s+
        ( \S+ (?: \s \S+ )? ) \s+
        ( \S+ (?: \s \S+ )? ) \s+
        ( [0-9\.]+ ) \s+
        ( \S+ (?: \s \S+ )? ) \s+
        
    ]x

    while <DATA>;