// is not a comment in perl