in reply to Negate link search in Mechanize
my @links = $mech->find_all_links(url_regex => qr/^(?!.*foo)/); [download]