my @links = ('');
while ($offset < @$self) {
my $link = substr $self->[$offset], 0, $length;
if ($context) {
my $penalty = 0;
# take a value slightly before the current offset
my @links = ('');
while ($offset < @$self) {
my $link = substr $self->[$offset], 0, $length;
if ($context) {
my $penalty = 0;
# take a value slightly before the current offset