SRL — Simple Regex Language

У Rebol/Red есть невероятно удобный и читабельный PEG диалект(parse).
Первый пример из статьи.

test: "[e-mail]"
digit: charset [#"0" - #"9"] ; еще один диалект.
letter: charset [#"a" - #"z" #"A" - #"Z"]
symbol: charset "._%+-"

rule: [
    some [digit | letter | symbol]
    "@"
    2 [letter | "."] any [letter | "."]
]

parse test rule