Select Code to Download

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

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