As someone has already pointed out, you could try Text::ParseWords but that only ignores delimiters that are inside quotes, you don't have a delimiter between "Jane""Doe" thus I do not believe Text::ParseWords will work for you. You could use:
my($first_name,$last_name,$address,$city,$state,$phone)=/"(.*?)"/g;
which will grab everything between quotes, it does not attempt to handle escaped quotes, such an exercise is left up to the reader.