parse::recdescent problem

gistfile1.pl

#!/usr/bin/perl 
use strict;
use warnings;
use Parse::RecDescent;
$RD_HINT  = 1;
$RD_TRACE = 1;
my $gramma = <<'EOF';
    line: "hello" /\s+/ "world" eof 
    eof: /^\Z/
EOF

my $parse = Parse::RecDescent->new($gramma);
$parse->line("hello world") or die "bad text";

---------------------------------------------------------------------------------------------------------
    Parse::RecDescent: Treating "line:" as a rule declaration
    Parse::RecDescent: Treating ""hello"" as an interpolated literal terminal
    Parse::RecDescent: Treating "/\s+/" as a /../ pattern terminal
    Parse::RecDescent: Treating ""world"" as an interpolated literal terminal
    Parse::RecDescent: Treating "eof" as a subrule match
    Parse::RecDescent: Treating "eof:" as a rule declaration
    Parse::RecDescent: Treating "/^\Z/" as a /../ pattern terminal
printing code (12593) to RD_TRACE
 1|   line   |Trying rule: [line]                   |
 1|   line   |                                      |"hello world"
 1|   line   |Trying production: ['hello' /\s+/     |
  |          |'world' eof]                          |
 1|   line   |                                      |
 1|   line   |Trying terminal: ['hello']            |
 1|   line   |>>Matched terminal<< (return value:   |
  |          |[hello])                              |
 1|   line   |                                      |
 1|   line   |                                      |" world"
 1|   line   |Trying terminal: [/\s+/]              |
 1|   line   |<<Didn't match terminal>>             |
 1|   line   |<<Didn't match rule>>                 |
bad text at /home/woosley/t.pl line 15.

Also, your test for success is not correct. Success of a rule is determined by define'd-ness, not truth. Use:
defined $parser->startrule($text) or print "Bad text!\n";