Select Code to Download

pl@nereida:~/Lperltesting$ cat calc510withactions4.pl
#!/usr/local/lib/perl/5.10.1/bin//perl5.10.1
...
else {
  say "does not match";
}

push @stack, rc(1), rc(2)

pl@nereida:~/Lperltesting$ ./calc510withactions4.pl
2-8/4/2-1
...
exp -> term re
matches: 2-8/4/2-1
Stack=(2 8 4 / 2 / - 1 -)