encode html entities in perl code
repeat myself a little less