condensed perl scripts