DEF parser with Perl