#! perl -slw
use strict;

while( $_ = do{ local $/ = "##REPORT"; <DATA> } ) {
    next if $. == 1; ##skip first empty record.
    print substr $_, 11, 10;
}

__DATA__
##REPORT      01 A ARCUR1GMU# 00112106 F               N ARCUR1   ARCUR1     P
              02 AR CURRENCY CONVERSION CONTROL - (BY PTR)                    N
              03 FROM FVENDAP1
              04 CODE: 10  RECORDING & REPORTING GMU / NON-WHQ ONLY REPORTS
              07 00112704 00200103
              11 R 3 RD.RDSMODEL                                  C 0008 0001
              12                                     A 0007 000 000 000 000
              13 VDLTP02
              14 S N   VDLTB02
##REPORT      01 A ARCUR10000 00112106 F               N ARCUR1   ARCUR1     P
              02 AR CURRENCY CONVERSION CONTROL - (BY PTR)                    N
              07 00112704 00200103
              11 R 3 RD.RDSMODEL                                  C 0008 0001
              12                                     A 0007 000 000 000 000
              13 VDLTP02
              14 S N   VDLTB02