Help for this page

Select Code to Download


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