my $data;
{
  $/=undef;
  $data = <DATA>;
}
$data =~ s/\n\+//g;
print $data;