my $grammar = q {
...
};