perl : geht es auch einfacher ?

  #komplette Datei aus dem Array in einen string schreiben, ohne \n

        my $arraystring = "";
        foreach my $x (@array){
                chomp($x);
                $arraystring = $arraystring.$x;
        }

        #kompletten string nach $stringAnfang.*$stringEnde ( kleinste folge ) absuchen, das Ergebnis in $1 speichern und den rest in $2

        while( $arraystring =~ m#$stringAnfang(.*?)$stringEnde(.*)# ){
                print "$1 \n";
                $arraystring = $2;
        }

#!/usr/bin/env perl

my $strStart = '/\*';
my $strEnd = '\*/';

my $longStr;

while(<>)
{
    $longStr .= $_;
    if ($longStr =~ m/$strStart(.+?)$strEnd/s) 
    {
        print "$1\n";
        $longStr = '';
    }
}

my $arraystring = "";
        foreach my $x (@array){
                chomp($x);
                $arraystring = $arraystring.$x;
        }

my $arraystring = join('', @array);

$arraystring =~ s#\n##g;