$text =~ s{(?<!dad)\p{Punct}}{}xmsg;