Select Code to Download

use strict;
use warnings;

...

use Data::Dumper;
print Dumper(\@records);

Record A Separator 9 Record B
Separator 10 Record C Separator 11
Record D

$VAR1 = [
          'Record A ',
          ' Record B
...
          '
Record D'
        ];