my @links = $mech->find_all_links(url_regex => qr/^(?!.*foo)/);