my %unique_urls;
foreach (@links) {
    if ($links[$i]->url() =~ m!(-[0-9][0-9][0-9][0-9][0-9][0-9]*)!) {
        $links[$i]->url() =~ m!([0-9][0-9][0-9][0-9][0-9][0-9]*)!;
        my $url = $1;
        $art[$i] = $url;
        print "$url\n" if ( ! $unique_urls{$url}++ );
    }
    $i++;
}