1#! /usr/bin/env perl -p
2
3BEGIN {
4    our $count = 1;              # Only the first one
5    our $RELEASE = $ENV{RELEASE};
6    our $RELEASE_TEXT = $ENV{RELEASE_TEXT};
7    our $RELEASE_DATE = $ENV{RELEASE_DATE};
8}
9
10if (/^### Changes between (\S+) and (\S+) \[xx XXX xxxx\]/
11    && $count-- > 0) {
12    $_ = "### Changes between $1 and $RELEASE_TEXT [$RELEASE_DATE]$'";
13}
14