#!/usr/bin/env perl

my $all = $ARGV[0] =~ /^-a|--all$/ ? 1 : 0;
my @lines = `curl "https://gitlab.com/gitlab-org/gitlab-foss/-/raw/master/CHANGELOG.md" 2>/dev/null`;

foreach (@lines) {
    if (/^##\s+(\d+\.\d+\.\d+)\s+\((\d+-\d+-\d+)/) {
        print "$1 [$2]\n";
        unless ($all) {
            last;
        }
    }
}