script to extract number of changelog entries per Rakudo release

changelog-entries.pl

#use Grammar::Tracer;
use v6;

grammar ChangeLog {
    token TOP {
        ^ <entry>+ $
    }
    token entry {
        <header>
        <newsitem>*
        <.terminator>
    }
    token header {
        'New in '<version> \N* \n
    }
    token newsitem {
        ^^ '+' \N+ \n
        [^^
            [' ' | \t]+\S\N+\n
        ]*
    }
    token terminator {
         ^^ \h* \n
        | \s*$
    }
    token version {
        [\d+]+ % <[.-]>
    }
}

if ChangeLog.parsefile('docs/ChangeLog') {
    say normalize-version(.<header><version>),
        " ", +.<newsitem> for @( $<entry> );
}

sub normalize-version($x) {
    $x.Str.trans('.' => '-')
}