suchen, ausgeben und ausführen

[m@y]

Moin,

Kann mir jemand helfen sowohl mit Befehlen als auch mit Logik helfen damit ich mein Miniproblemchen lösen könnte!

versuch's mal mit 'nem regulärem Ausdruck

open(TXT, "Textdatei.txt");
 my $inhalt = join("", <TXT>);
 $inhalt =~ /Wert (.*).txt/gi;
 my $datei = $1.txt;
close(TXT);

open(DATEI, "<$datei");
 my $dateiinhalt = join("", <DATEI>);
close(DATEI);

open(FESTPLATTENDATEI, ">$datei");
 print FESTPLATTENDATEI "$dateiinhalt";
close(FESTPLATTENDATEI);

müsste eigentlich klappen!

cu, m@y