Select Code to Download

my @numbers;
# Assuming we're reading from a file line by line...
...
    }
}
print "$_\n" for @numbers;

perl -ne "m/^Change\s(\d+)\s/ && print $1, qq/\n/;"