$text =~ s{(?!')\p{Punct}}{}g;

##</code><code>##

{ no warnings "uninitialized"; $text =~ s{(')|\p{Punct}}{$1}g; }

##</code><code>##

$text = join "", $text =~ m{[\x27\P{punct}]+}g;