# 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;