perl commented lines