my( @stuff ) = $entry =~ m/"([^",]+)"/g;