perl (1,096)