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] =~ /(.*)(.)/;