use Data::Dumper;

   use Parse::RecDescent;

   my $grammer = q{
     record:  id name
    
       id:  m[(.{6})]  { print "id  => $1 " if $1 }
       name: m[(.*)] { print "name => $1 "; }
           };
       my $parser = Parse::RecDescent->new($grammer);

   print Dumper($parser);