for my $i (0 .. $#links - 1) {
my ($link, $lastchar) = $links[$i + 1]->[0] =~ /(.*)(.)/;
for my $i (0 .. $#links - 1) {
my ($link, $lastchar) = $links[$i + 1]->[0] =~ /(.*)(.)/;
if (length $s1 > $i) {
my $c1 = substr $s1, $i, 1;
if ($s1 =~ /^\Q$prefix/) {
if (length $s1 > $i) {
my $c1 = substr $s1, $i, 1;
if ($s1 =~ /^\Q$prefix/) {