$_=<>;
chomp;
@results=m/([^"']+|(?:"(?:[^"]|\\")*"))/g;
print "$results[0],  $results[1]\n";
print "$1, $2\n";
print "$`, $1, $2\n";