bug #20 (perl: exception during parsing perl source) fixed