Cyclone Bianca weakens but still a threat to Perth