#!/usr/bin/env perl

use strict;
use warnings;
use Parse::RecDescent;
use Data::Dumper;

my $grammar = <<'END_GRAMMAR';
    file: /#\w+/ 'foo' 'bar' { [ @item ] }
END_GRAMMAR

my $data = <<'END_DATA';
#skdjslkdjsakdjadjlksa
foobar
END_DATA

our $parse = new Parse::RecDescent($grammar)
    || die "Couldn't generate parser from grammar: $!";

my $parse_tree = $parse->file($data);

print Dumper $parse_tree;