perl scripts for substitution of words etc