#!/usr/bin/perl -w
use strict;

my @array;
{
  local $/ = '';
  @array = <DATA>;
}

print $array[0];

__END__
blah blah blah
blah blahblahblalh

oh yeah interesteing

no no no
nonnono

yes yes