#!/usr/local/bin/perl
use strict;
use warnings;
local $/ = "DELIMITING_TEXT";

my @array;
while(<DATA>){
              chomp;
              push @array, $_;
              }
foreach my $element(@array){
        print "$element"; # no "\n" is typed
        }



__DATA__
some junk
DELIMITING_TEXT
test1 test2
test3
test4
DELIMITING_TEXT
test1 test2

test1 test2
test1 test2
DELIMITING_TEXT
test1 test2
DELIMITING_TEXT
some junk

##</code><code>##