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

require Perl::Strip;
my $transform = new Perl::Strip(keep_nl => 1);

my $source = <<'HEREDOC'
my $testcode = 'Hallo';     # Testtext

    my @array = ( 2, 4, 6, 8, '   10'," 1\" 2 ");

    my @array2 = qw(foo bar zorg);

SPRUNGMARKE:

# Abschnitt ####################

print "testtext\n";                     # Kommentar
$xyz = <<HEREDOCIMHEREDOC

Leerzeilen  Leerzeilen  Leerzeilen

UNTEN
HEREDOCIMHEREDOC
;

$xyz =~ s/[ \n\r\t ]//g;

goto SPRUNGMARKE;

require Dies::Das;
HEREDOC
;

my $target = $transform->strip($source);
say $target;