...
    my $len = pos($string) - $newlines[-1];
    push @newlines, [ pos($string), $len ];
...