#!/usr/bin/env perl
use strict;
use warnings;
use Text::CSV_XS;

my $csv = Text::CSV_XS->new;

my $line =
  '10.15.106.71,"/ifs/PH01/PH01SUB/ENTNASIS02/PH02/SMB/Share/Share6/Employee-Share/Contracts/Privacy and Disclosure/Disclosure Unit/Active Contracts/County/Sample County/E00526, E00595 Sample  County DA/2017-2020 M4385566/Emails & Correspondence/Welcome Letter.doc",FMRWX,Creator Owner,\ifs\PH01\PH01SUB\ENTNASIS02\PH02\SMB\Share\Share6\Employee-Share\Contracts,This folder only,Abstract\Creator Owner,"US PII (1/1),Document Passwords - 2.0 (1/1),US Social Security Number (1/1),GLBA (Gramm-Leach Bliley Act) (1/1)","Credentials (1),Financial (1),PII (2)",4';

$csv->parse ($line);
my @fields = $csv->fields;
print "Input:\n$line\n\nOutput:\n" . join "\n\n", @fields;