(Perl) parse and emit postfix attr dialects