http://www.perlmonks.org?node_id=1026114


in reply to regex pattern match

Hi,

take Text::CSV and parse line by line, so you should have all elements A and B and C and D,E,F in one array. Then you access the last element and split it with: 

my @lastletters = split /,/, $elements[-1];
if(@lastletters > 1) {
    # more than one letter
    print "first row\n";
    print "additional rows\n";
}

[download]

McA

In Section Seekers of Perl Wisdom