while (<DATA>) {
  # do stuff with $_
}
# ...or a slurp
seek(DATA,0);
my $data = (<DATA>);

# end of script
__DATA__
    # Data
    # Data
    # Data