my ($link, $lastchar) = $links[$i + 1]->[0] =~ /(.*)(.)/;
$link .= $lastchar eq 'a' ? '.' : chr( ord($lastchar) - 1 )
unless $lastchar eq '.';
my ($link, $lastchar) = $links[$i + 1]->[0] =~ /(.*)(.)/;
$link .= $lastchar eq 'a' ? '.' : chr( ord($lastchar) - 1 )
unless $lastchar eq '.';