#$line =~ s/(\015?\012)\z// || die "Assert";
   $line =~ s/(\015*\012)\z// || die "Assert";