split /(?<=")\s*,\s*(?=")/, $string

##</code><code>##

0  '"title"'
1  '"Some Name, "some wierd title""'
2  '"555-555-5555"'

##</code><code>##

my @fields = map { s/^"(.*)"\z/$1/; $_ }
                 split /(?<=")\s*,\s*(?=")/, $string;