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