Here's a demonstration of CSV parsing in Perl using Text::CSV_XS.

#!perl

use strict;
use warnings;

use Text::CSV_XS;

my $csv = Text::CSV_XS->new( { binary => 1 } );

while (my $record = $csv->getline(*DATA)) {
    my @values = @$record;

    for (my $i = 0; $i <= $#values; $i++) {
        printf "(%d)\t[%s]\n", $i + 1, $values[$i];
    }
}

exit 0;

__DATA__
Action,userID,DEPT,FolderLocation,Place,First Name,Surname,Dept2,subje
+ct,brief,Phone,InternetEmail,AccessCode,AccessID,A,IA,SC,UC,PC,JD,ED,
+JC,G,SCA,FNA,OAD,AAK,MBB,SACTA,Index,STATE,Fax,uID,LDisa,Second Intro
+,BossName,EXphoneCall,OXCode,NameID,Section,Com,status,final Am,Speci
+alID,unit,BFIT,Old Show,Second mail alias,footer,Build,Notes Server,C
+ellPhone
X,LLXEAS2,,,"Wah Woo, Section A",Lamshi,Coo,DSA,No vell,,,,,,,,,,HKA,,
+,,,,,,,,,,Important,,,,,,,A,LLXEAS2,CWW,,NAW,,,,,,,"Welcome to Coo Du
+k, ltd.",,,
X,LLXEAS,,,"Wah Woo, Section A",Lamshi,Coo,DSA,No vell,,,,,,,,,,HKA,,,
+,,,,,,,,,Important,,,,,,,A,LLXEAS,CWW,,NAW,,,,,,,"Welcome to Coo Duk,
+ ltd.",,,
G,CHXAS,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,sam.mo@hotmail.co
+m,,,,

[download]

Here's the output of the script.

(1)     [Action]
(2)     [userID]
(3)     [DEPT]
(4)     [FolderLocation]
(5)     [Place]
(6)     [First Name]
(7)     [Surname]
(8)     [Dept2]
(9)     [subject]
(10)    [brief]
(11)    [Phone]
(12)    [InternetEmail]
(13)    [AccessCode]
(14)    [AccessID]
(15)    [A]
(16)    [IA]
(17)    [SC]
(18)    [UC]
(19)    [PC]
(20)    [JD]
(21)    [ED]
(22)    [JC]
(23)    [G]
(24)    [SCA]
(25)    [FNA]
(26)    [OAD]
(27)    [AAK]
(28)    [MBB]
(29)    [SACTA]
(30)    [Index]
(31)    [STATE]
(32)    [Fax]
(33)    [uID]
(34)    [LDisa]
(35)    [Second Intro]
(36)    [BossName]
(37)    [EXphoneCall]
(38)    [OXCode]
(39)    [NameID]
(40)    [Section]
(41)    [Com]
(42)    [status]
(43)    [final Am]
(44)    [SpecialID]
(45)    [unit]
(46)    [BFIT]
(47)    [Old Show]
(48)    [Second mail alias]
(49)    [footer]
(50)    [Build]
(51)    [Notes Server]
(52)    [CellPhone]
(1)     [X]
(2)     [LLXEAS2]
(3)     []
(4)     []
(5)     [Wah Woo, Section A]
(6)     [Lamshi]
(7)     [Coo]
(8)     [DSA]
(9)     [No vell]
(10)    []
(11)    []
(12)    []
(13)    []
(14)    []
(15)    []
(16)    []
(17)    []
(18)    []
(19)    [HKA]
(20)    []
(21)    []
(22)    []
(23)    []
(24)    []
(25)    []
(26)    []
(27)    []
(28)    []
(29)    []
(30)    []
(31)    [Important]
(32)    []
(33)    []
(34)    []
(35)    []
(36)    []
(37)    []
(38)    [A]
(39)    [LLXEAS2]
(40)    [CWW]
(41)    []
(42)    [NAW]
(43)    []
(44)    []
(45)    []
(46)    []
(47)    []
(48)    []
(49)    [Welcome to Coo Duk, ltd.]
(50)    []
(51)    []
(52)    []
(1)     [X]
(2)     [LLXEAS]
(3)     []
(4)     []
(5)     [Wah Woo, Section A]
(6)     [Lamshi]
(7)     [Coo]
(8)     [DSA]
(9)     [No vell]
(10)    []
(11)    []
(12)    []
(13)    []
(14)    []
(15)    []
(16)    []
(17)    []
(18)    []
(19)    [HKA]
(20)    []
(21)    []
(22)    []
(23)    []
(24)    []
(25)    []
(26)    []
(27)    []
(28)    []
(29)    []
(30)    []
(31)    [Important]
(32)    []
(33)    []
(34)    []
(35)    []
(36)    []
(37)    []
(38)    [A]
(39)    [LLXEAS]
(40)    [CWW]
(41)    []
(42)    [NAW]
(43)    []
(44)    []
(45)    []
(46)    []
(47)    []
(48)    []
(49)    [Welcome to Coo Duk, ltd.]
(50)    []
(51)    []
(52)    []
(1)     [G]
(2)     [CHXAS]
(3)     []
(4)     []
(5)     []
(6)     []
(7)     []
(8)     []
(9)     []
(10)    []
(11)    []
(12)    []
(13)    []
(14)    []
(15)    []
(16)    []
(17)    []
(18)    []
(19)    []
(20)    []
(21)    []
(22)    []
(23)    []
(24)    []
(25)    []
(26)    []
(27)    []
(28)    []
(29)    []
(30)    []
(31)    []
(32)    []
(33)    []
(34)    []
(35)    []
(36)    []
(37)    []
(38)    []
(39)    []
(40)    []
(41)    []
(42)    []
(43)    []
(44)    []
(45)    []
(46)    []
(47)    []
(48)    [sam.mo@hotmail.com]
(49)    []
(50)    []
(51)    []
(52)    []

[download]

Neither your regular expression pattern nor split will parse your example CSV records correctly.

In reply to Re: Is there any regex limitation? by Jim
in thread Is there any regex limitation? by benlaw

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.