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