die 'Bad data' unless $s =~ s[^.{1,400}\.\K.*$][];