Select Code to Download

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

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