my $issuecount = '';
eval {
    local $/ = undef;
    open(SPEC, '<', '/home/ianh/other/whatwg/specs/web-apps/current-work/source') or die $!;
    my $spec = <SPEC>;
    my @issues = $spec =~ m/(XXX|big-issue)/gos;
    $issuecount = scalar @issues;
    close SPEC;
    print "$issuecount issues found in specification text.\n";
};
warn "Issue counting failed: $@\n" if $@;