$/ = '';
my @lines = reverse split /\n/, <DATA>;