Example code for a simple recursive descent parser for arithmetic expressions written in Perl.