#!/usr/bin/perl -w -s
use strict;
use Parse::RecDescent;
my $parser;
$parser = Parse::RecDescent->new(q({my %foo} rule:"foo"{$foo{x}="}";}));
$parser = Parse::RecDescent->new(q({my %foo} rule:"foo"{$foo{s}="}";}));
$parser = Parse::RecDescent->new(q({my %foo} rule:"foo"{$foo{y}="}";}));
$parser = Parse::RecDescent->new(q({my %foo} rule:"foo"{$foo{m}="}";}));
$parser = Parse::RecDescent->new(q({my %foo} rule:"foo"{$foo{tr}="}";}));