use Parse::RecDescent;

local $/;
my $grammar = <DATA>;
my $parser = Parse::RecDescent->new($grammar);

my $text = <>; # <------ Line in Question

parser->translation_unit($text) or die "bad C code";