Help for this page
$text =~ s{(?!')\p{Punct}}{}g;
{ no warnings "uninitialized"; $text =~ s{(')|\p{Punct}}{$1}g; }
$text = join "", $text =~ m{[\x27\P{punct}]+}g;