Pegex Drinkup™ parser in Perl