in reply to regex pattern match


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"; }