...
my @outbound_links = grep { $_->url !~ qr!^https?://$hostname/! } $mech->find_all_links;
...