black perl