recursion parser in perl_base.pl