Help for this page

Select Code to Download

Select or download this

while ( my ( $url, $text ) = each(%hrefs) ) {
    if ( !defined( $text->[-1] ) ) {
...
    }
    $total++;
}

Select or download this
```
     grep { defined } @$text
```