Select Code to Download

##REPORT      01 A ARCUR1GMU# 00112106 F               N ARCUR1   ARCU
+R1     P
              02 AR CURRENCY CONVERSION CONTROL - (BY PTR)            
+        N
...
              12                                     A 0007 000 000 00
+0 000
              13 VDLTP02
              14 S N   VDLTB02

#!/usr/bin/perl
use strict;
...
  my $rid = substr($1, 19, 10);
  print "$rid: " . ($keeplist{$rid} ? 'y' : 'n') . "\n";
}

while (<STDIN>) {
    if ( /^##/ ) {
...
    }
    $buffer .= $_;
}