require bytes;
if (length($s) > $MAX) {
    substr($s, $MAX) = ""; 
}   
$s =~ s/\X\z// until $MAX > bytes::length($s);