while( $line =~ m/(?:^|,)"([\p{Alpha}\s]+)"(?=,|$)/g ) {
    print "$1\n";
}