#!/usr/bin/perl -l

use strict;
use warnings;

my $string = '.' x 400_000_000;

print length $string; # Prints 400000000

$string =~ s[^.{1,400}\.\K.*?$][];

print length $string; # Prints 401