perl trick to get rid of some quotes