for my $match (split //, $before) {
scalar $link =~ /\G\Q$match/g or last;
$trim++;
for my $match (split //, $before) {
scalar $link =~ /\G\Q$match/g or last;
$trim++;
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/) {