The problem is that 'return()' finishes parsing.

Parse::RecDescent works with a variable $return to give back results from subrules to parent rules. If you change the three occurences of "return" inside the grammar (but not inside the sub 'expression') to "$return=" the parser works