>> gelöst! <<

[gary]

Gute Nacht zusammen,

So, habe etwas Zeit gefunden, um die Vorschläge ein zu bauen. So sieht es jetzt aus:

my $zeile = <LESER>;
my ($Layout1, $Thema, $Bild) = split(/,/,$zeile);
$Display = $Thema;
$Display = substr $Display, 0, -4;
$Display = ucfirst ($Display);
push (@LinkCollect, $Display);

Geht einwandfrei! Zur Not hätte ich aber auch vier mal hintereinander den chop-Befehl  schreiben können *g*- käme auf das Selbe heraus.

Gute Nacht und vielen Danke an _Alle_ Helfer.

Grüsse gary