#!/usr/bin/perl

use strict;
use warnings;

use Parse::RecDescent;

my $text = <<EOI
apple_pear
cherry
munchy_nice_apricot
mint_
_banana
raspberry__pie
EOI

$Parse::RecDescent::skip = '[ \t]*';

my $grammar = q(

  { use Data::Dumper }

  data: line(s)
  line: term endofline
  term: word(s /_/) ...endofline
       { print Dumper(\%item); }
  word: /[a-z]+/
  endofline: /[\n\r]+/

);

my $parser = Parse::RecDescent->new($grammar);
if ($parser->data($text)) {
	print "ok\n";
}