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