perl. bitches