fix perl comment string