#!/usr/bin/perl
use strict;
use 5.010;
use warnings;

my $EMPTYname = "EMPTY";

my ( @dataEempty, @output );

open BOUNDARY, "< /home/wolf/Dokumente/emty.txt";

        @dataEempty = <BOUNDARY>;

close BOUNDARY;

foreach  ( @dataEempty ) {

        my $lineEmpty = shift @dataEempty;

        unless ( $lineEmpty =~ /$EMPTYname/ ) {

                &schreibe ( $lineEmpty, \@output )

        } else {

                &schreibe ( $lineEmpty, \@output );

                last

        }

}

my $weiter = 0;

foreach my $lineEmpty(@dataEempty) {

        if ( $lineEmpty =~ /\}/ )  {

                &schreibe ( $lineEmpty, \@output );

                $weiter = 1 # Umschalter

        } else {

                &schreibe ( $lineEmpty, \@output ) if $weiter == 1 

        }

}

open OUT, "> /home/wolf/Dokumente/boundary";

foreach my $line (@output) {

        print OUT $line

}

close OUT;

sub schreibe {

  my ($lineEmpty, $ar) = shift;

  print "Es wird geschrieben: = $lineEmpty \n";

  push @$ar, $lineEmpty

}