Help for this page
my $text = q{"This is dad's car." "OK", he said.}; $text =~ s{\p{Punct}}{}xmsg;
$text =~ s{(?<!dad)\p{Punct}}{}xmsg;