roseetacode_compiler_lexer_perl6_scanner_regex.pl

    \G (?| (?^x:(?: \s | (?^sx:/\* .+? (?: \*/ | $ (?{die "End-of-file in comment\n"}) )))*)  \K (?|
\* (*MARK:0) |
\/ (*MARK:1) |
\+ (*MARK:2) |
\- (*MARK:3) |
\<\= (*MARK:4) |
\< (*MARK:5) |
\> (*MARK:6) |
\!\= (*MARK:7) |
\= (*MARK:8) |
\&\& (*MARK:9) |
(?^:if\b) (*MARK:10) |
(?^:while\b) (*MARK:11) |
(?^:print\b) (*MARK:12) |
(?^:putc\b) (*MARK:13) |
\( (*MARK:14) |
\) (*MARK:15) |
\{ (*MARK:16) |
\} (*MARK:17) |
\; (*MARK:18) |
\, (*MARK:19) |
(?^i:[_a-z][_a-z0-9]*) (*MARK:20) |
(?^:[0-9]+\b) (*MARK:21) |
(?^:'([^']*)(')?) (*MARK:22) |
(?^:"([^"]*)(")?) (*MARK:23) |
(?^:$) (*MARK:24)  )
         | (?^x:(?: \s | (?^sx:/\* .+? (?: \*/ | $ (?{die "End-of-file in comment\n"}) )))*)? \K ((?^x:\w+ | .)) (*MARK:!) )