sub ing{ grep s o\..*o\nos,$@ } sub sex { "no sex" } s/s/sex/gimmesex, die ing for sex