Select Code to Download

"title", "Some Name, "some wierd title"", "555-555-5555"

'title'|'Some Name, "some wierd title"'|'555-555-5555'

$line =~ s[^"|"$][']g;
$line =~ s[",\s"]['|']g;

my $csv = Text::CSV_XS->new({
     'quote_char'  => "'",
     'sep_char'    => '|',
});