my $csv = Text::CSV_XS->new({'quote_char'=>'"','escape_char'=>'"','sep_char'=>$csv_profile->csv_separator,'binary'=>1});
my $csv_profile_content = $csv_profile->content;
$csv_profile_content =~ s/[\s]*//g;
my ( @headers, @fields );
while ( $csv_profile_content =~ /
([^=\|]+) # header
-