Add a rewritten version of lpeg/lpcode.c to perl, and a quick test.