WWW::Mechanize does provides url_regex options you might interest in using it:

# untested!
$agent->find_link(url_regex => qr/\d{6}/);
[download]

Well, it will also find links with more than 6 digits, but I think you got the picture.