for my $line (split qr/\n/, $partial) {