use strict;
use warnings;

use feature 'say';

local $/="__data__\n";

while (my $record=<DATA>){
#  say "<$record>";
  my @lines = split /\n/, $record;
  say $lines[0];
}



__DATA__
1aaaaaaaaaa
aaaaaaaaaaa
aaaaaaaaaaa
__data__
1bbbbbbbbbb
bbbbbbbbbbb
bbbbbbbbbbb
__data__
1cccccccccc
ccccccccccc
ccccccccccc
__data__

##</code><code>##

1aaaaaaaaaa
1bbbbbbbbbb
1cccccccccc