Select Code to Download

# either this way:
$s =~ s/^\X{0,$MAX_CHARS}\K.*//s;

# or "by hand", this way:
substr($s, pos $s) = "" if $s =~ /^\X{0,$MAX_CHARS}/g;

3768         case CLUMP: /* Match \X: logical Unicode character.  This
+ is defined as
3769                        a Unicode extended Grapheme Cluster */
...
3781                The discussion below shows how the code for CLUMP 
+is derived
3782                from this regex.  Note that most of these concepts
+ are from
3783                property values of the Grapheme Cluster Boundary (
+GCB) property.