#!/usr/bin/perl

use strict;
use warnings;
use open qw( :encoding(UTF-8) :std );
use Modern::Perl;

my $string = ('X' x 400) . '.';
say length $string; # Prints 401
$string =~ s[^.{1,400}\.\K.*?$][];
say length $string; # Prints 401