use strict; use warnings; my $grammar = <<'__EOI__'; { use strict; use warnings; } ... __EOI__