$text =~ s{(?!')\p{Punct}}{}g;