#!/usr/bin/perl -w

use strict;

use XML::LibXML;
use Module::CoreList;

my $parser = XML::LibXML->new();
$parser->recover(1);
my $dom = $parser->parse_html_file('activeperl_ppm_status.html')
  or die "parse error";

foreach ( $dom->findnodes('//tr[./td[3]/text() = "CORE"]/td[1]/text()') ) {
  my $dist = $_->to_literal;
  $dist =~ s/-/::/g;
  next if Module::CoreList->first_release($dist);
  print $dist, "\n";
}