perl parser