p5.pl

#!/usr/bin/env perl
use strict;
use warnings;
use 5.024;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new(autocheck => 0);
$mech->get('http://perl6.fail');
my @RTs = $mech->find_all_links( text_regex => qr/^RT/ );

my @tests;
my @with_tests;
for (@RTs) {
    $mech->get($_->url);
    unless ( $mech->success ) {
        warn "Failed to fetch " . $_->url . ": " . $mech->res->status_line;
        next;
    }
    if (
        $mech->content( format => 'text' )
        =~ /\btest.*need|\bneed.*test\b/i
    ) {
        say $_->url . " is a candidate";
        push @with_tests, $_->url;
    }
}

say "------------------";
say for @with_tests;

__END__