my $text = q{"This is dad's car." "OK", he said.}; $text =~ s{\p{Punct}}{}xmsg; #### $text =~ s{(?