#!/usr/bin/perl
# besonders für einen Anfänger ist es wichtig die beiden zu Nuzen.
# Das verhindert ärgerliche Anfängerfehler,
use strict;
use warnings;

my @data;
{
  # "$/" ist der "Eingabeseperator"
  # er bestimmt was eine Zeile ist
  # "local" sorgt dafür,
  # dass die Variable nur im aktuellen Block (innerhealb eins "{...}") verändert wird.
  local $/="#----------\n";
  # Alle daten aus den FileHandle DATA (s.u.) in das Array einlesen.
  @data=<DATA>;
}

# "join" fügt array zusammen
print join("\n####################\n",@data);



# Perl-Data-Bereich
# Alles danach landet im speziellen Filehandle "DATA"
__DATA__
text
bla
rababar
#----------
application = OVO3
user = oraovo3

application = TST1
user = oratst3
#----------
text
bla
rababar