#!/usr/bin/perl -Tw
use strict;
use Text::ParseWords;

my $fname = "CommaSample.dat";
my $pretty = 1;
BARE: {

##</code><code>##

    my ($toggle, @data) = ('');

##</code><code>##

    open FH, "< $fname" or die "Cannot open datfile: ", $!;

##</code><code>##

    while (<FH>) {
        $toggle = 1, next if /^"PER"\s*$/;
        $toggle = 0, next if /^"EMP"\s*$/;
        last if /^"EOS"\s*$/;

##</code><code>##

        die "Unknown or missing record tag: Got $_ on line $., datafile $fname.$/" if $toggle eq '';

##</code><code>##

        chomp;
        @data = &quotewords('\s+', 0, $_);
        print "Entity      = $data[0]$/";
        if ($toggle) {

##</code><code>##

            print "Name        = $data[1]$/";
            print "Color       = $_ $/" for split /\s*,\s*/, $data[2];
            print "Date        = $data[3]$/";
        }
        else {

##</code><code>##

            print "Employment  = $data[1]$/",
                  "Job Title   = $data[2]$/",
                  "Hire Date   = $data[3]$/",
                  "Location    = $data[4], $data[5] $data[6]$/",
                  "Salary      = $data[7]$/";
        }

##</code><code>##

        $toggle = '';
        print $/ if $pretty;
    }

##</code><code>##

    print $/;
}