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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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