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