预览片段。 获取完整访问权限
使用Perl 6正则表达式和语法进行解析：递归下降解析