Thanks Ikegami!

I look forward for something like that integrated in Perl 5.10 regexps. I am slowly processing your solutions. The general idea is to save the attributes of the previous parenthesis and for that I can use some local auxiliary variables. The following is a rewrite of the grammar above that is a more general solution. It does not pushes numbers unconditionally. It uses variable $op and an intermediate action to save the required attribute: 

pl@nereida:~/Lperltesting$ cat calc510withactions3.pl
#!/usr/local/lib/perl/5.10.1/bin//perl5.10.1
use v5.10;

# Infix to postfix translator using 5.10 regexp
# Original grammar:

#  exp ->   exp [-+] term
#         | term
#  term ->   term [*/] digits
#          | digits

# Applying left-recursion elimination we have:

#  exp  ->   term re
#  re   ->   [+-] term re
#          | # empty
#  term ->   digits rt
#  rt   ->   [*/] rt
#          | # empty


my $input;

sub echo {
  my $p = substr($input, 0, pos($input));
  say $p
      .(" " x (length($input)-length($p)))
      ."\t".$_[0];
}

my @stack;
local our $op = '';
my $regexp = qr{
    (?&exp)

    (?(DEFINE)
        (?<exp>    (?&term) (?&re)
                     (?{ echo "exp -> term re" })
        )

        (?<re>     \s* ([+-]) (?&term) \s* (?{ push @stack, $^N }) (?&
+re)
                     (?{ echo "re -> [+-] term re" })
                 | # empty
                     (?{ echo "re -> empty" })
        )

        (?<term>   ((?&digits))
                      (?{ # intermediate action
                          push @stack, $^N
                      })
                   (?&rt)
                      (?{
                          echo "term-> digits($^N) rt";
                      })
        )

        (?<rt>     \s*([*/])
                           (?{ # intermediate action
                              local $op = $^N;
                           })
                   ((?&digits)) \s*
                           (?{  # intermediate action
                                push @stack, $^N, $op
                            })
                   (?&rt) # end of <rt> definition
                           (?{
                                echo "rt -> [*/] digits($^N) rt"
                            })
                  |  # empty
                     (?{ echo "rt -> empty" })
        )

        (?<digits>  \s* \d+
        )
    )
}xms;

$input = <>;
chomp($input);
if ($input =~ $regexp) {
  say "matches: $&\nStack=(@stack)";
}
else {
  say "does not match";
}

[download]
The execution shows how a rightmost anti-derivation is built by the perl 5.10 engine: 
pl@nereida:~/Lperltesting$ ./calc510withactions3.pl
2-8*4/2/4-1
2               rt -> empty
2               term-> digits(2) rt
2-8*4/2/4       rt -> empty
2-8*4/2/4       rt -> [*/] digits(4) rt
2-8*4/2/4       rt -> [*/] digits(2) rt
2-8*4/2/4       rt -> [*/] digits(4) rt
2-8*4/2/4       term-> digits(8) rt
2-8*4/2/4-1     rt -> empty
2-8*4/2/4-1     term-> digits(1) rt
2-8*4/2/4-1     re -> empty
2-8*4/2/4-1     re -> [+-] term re
2-8*4/2/4-1     re -> [+-] term re
2-8*4/2/4-1     exp -> term re
matches: 2-8*4/2/4-1
Stack=(2 8 4 * 2 / 4 / - 1 -)

[download]

In reply to Re^2: Backreference variables in code embedded inside Perl 5.10 regexps by casiano
in thread Backreference variables in code embedded inside Perl 5.10 regexps by casiano

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.