perl scripts for Briefregesten transformation