while ( my ( $url, $text ) = each(%hrefs) ) {
    if ( !defined( $text->[-1] ) ) {
        print $fh_ERR "$url|_____NO_TEXT_____\n";
    }
    elsif ( $text->[-1] ne $success ) {
        $notfound++;
        if (defined($text->[0])) {
            my @text = collapse(@$text);             ### <--- line 68
            print $fh_ERR "$url|", join( ",", @text ), "\n";
        }
        else {
            print $fh_ERR "$url|\n";
        }
    }
    $total++;
}