$s = '1945,"4,399.00",938,1/10/2012';;

print for $s =~ m[("[^"]+"|[^,]+),]g;;
1945
"4,399.00"
938