<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#! /usr/bin/perl -w

use Parse::RecDescent;

$RD_TRACE=1;
my $parse = Parse::RecDescent-&gt;new(do{local$/;&lt;DATA&gt;});


while (&lt;&gt;) {
	use Data::Dumper 'Dumper';
	print Dumper [
		$parse-&gt;line($_)
	];
}

__DATA__

line: block | call*

block: &lt;perl_codeblock&gt;

call: "foo" &lt;perl_codeblock ()&gt;
</pre></body></html>