...
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get( $url );
my @links = $mech->links();

##</code><code>##

for my $l (@links) {
       next if $l->url() =~ /foo/;
       push ( @non_foo_links, $l );
       ...