Select Code to Download

#!/usr/bin/perl
use strict;
...
while($string =~ /(ISSUE\s+\w{5}\d+)\n-*\n\s*([\S\s]*?)---*/gs) {
    print "$1\n";
}