$s = '.' x 500;;
$s =~ s[^.{1,400}\.\K.*?$][];;
print length $s;;
401